background image
<< Multi-Application - Code for concurrency test example | Multi-Application - Concurrency test explained >>
Multi-Application - DefaultBaseState function
<< Multi-Application - Code for concurrency test example | Multi-Application - Concurrency test explained >>
390
User's Guide
22 M
ULTI
-A
PPLICATION
T
ESTING
Code for concurrency test example
SetMultiAppStates ()
/*** HAVE EACH MACHINE EDIT THE SAME EMPLOYEE ***/
for each sMachine in lsMachine
spawn
/*** SET THE CURRENT MACHINE FOR THIS THREAD ***/
SetMachine (sMachine)
/*** EDIT THE EMPLOYEE RECORD "John Doe" ***/
Personnel.EmployeeList.Select ("John Doe")
Personnel.Employee.Edit.Pick ()
/*** CHANGE THE SALARY TO A RANDOM NUMBER BETWEEN
50000 AND 70000 ***/
Employee.Salary.SetText ([STRING] RandInt (50000, 70000))
rendezvous
/*** ATTEMPT TO HAVE EACH MACHINE SAVE THE EMPLOYEE RECORD ***/
for each sMachine in lsMachine
spawn
/*** SET THE CURRENT MACHINE FOR THIS THREAD ***/
SetMachine (sMachine)
/*** SELECT THE OK BUTTON ***/
Employee.OK.Click ()
/*** CHECK IF THERE IS A MESSAGE BOX ***/
if (MessageBox.Exists (ACCEPT_TIMEOUT))
SetMachineData (NULL, "sMessage",
MessageBox.Message.GetText ())
MessageBox.OK.Click ()
Employee.Cancel.Click ()
else if (Employee.Exists ())
AppError ("Employee dialog not
dismissed after {ACCEPT_TIMEOUT} seconds")
rendezvous
/*** VERIFY THE OF NUMBER OF MACHINES WHICH SUCCEEDED ***/
iSucceed = 0