Forum Discussion

joe_2's avatar
joe_2
Contributor
12 years ago

User feedback during keyword test

Ok, looked at the first 10 pages and didn't see anything that looked relevant to my question. I'm trying to test a windows based program that manipulates images. For many of the manipulation...
Andrey_M's avatar
Andrey_M
Contributor
12 years ago
Hi Joseph.



Please note that TC supports manual checkpoint functionality described here.



My solution based on user form (simplest version):



VBScript




 Function manualCheckpoint( psActionDescription )


   Dim userResponse


   UserForms.manualCheckpoint.actionDescription.Caption = psActionDescription


   Do


     userResponse =  UserForms.manualCheckpoint.ShowModal()


     Select Case userResponse


     Case mrYes


       Log.Checkpoint( psActionDescription & " : PASSED" )


     Case mrNo


       Log.Error( psActionDescription & " : FAILED" )


     Case Else


       Call MessageDlg( "Sorry but you can not ignore the manual checkpoint. Please select Pass or Fail.", mtWarning, mkSet( mbOk ), 0 )  


     End Select   


   Loop Until userResponse = mrYes OR userResponse = mrNo  


   manualCheckpoint = userRespone = mrYes


 End Function

 



JScript




 function manualChekpoint( psActionDescription )


 {


   var userResponse;


   UserForms.manualCheckpoint.actionDescription.Caption = psActionDescription;


   do


   {


     userResponse = UserForms.manualCheckpoint.ShowModal();


     if ( userResponse == mrYes )


       Log.Checkpoint( psActionDescription + " : PASSED" );


     else if ( userResponse == mrNo )


       Log.Error( psActionDescription + " : FAILED" );


     else   


       MessageDlg( "Sorry but you can not ignore the manual checkpoint. Please select Pass or Fail.", mtWarning, mkSet( mbOk ), 0 );


   } while ( ! ( userResponse == mrYes || userResponse == mrNo ) )


   return userResponse == mrYes;


 }