Mock a CALL statement and provide fake results

Home -> User Guide -> Common Test Case Patterns ->

       TESTSUITE 'Grade 91-100 = A, 81-90 = B, 71-80 = C, 65-70 = D, below 65 = F' 

       TESTCASE 'Grade 91 is A' 
           MOCK CALL 'CALCGRADES'
               MOVE 91 TO CALC-AVG-GRADE
           END-MOCK
           PERFORM ASSIGN-LETTER-GRADE
           EXPECT WS-LETTER-GRADE TO BE 'A'