[r447]: / branch / coUnit / coUnit / Unit Test Framework for CODESYS / POUs / FB_coUnitRunner / RunTestSuiteTests / svnobj  Maximize  Restore  History

Download this file

13 lines (12 with data), 5.8 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
(* Run coUnit test suites *)
IF NOT AllTestSuitesFinished THEN
    IF GVL_coUnit.NumberOfInitializedTestSuites = 0 THEN
        AllTestSuitesFinished := TRUE;
    ELSIF GVL_coUnit.NumberOfInitializedTestSuites > 0 THEN
            IF GVL_coUnit.TestSuiteAddresses[Counter]^.AreAllTestsFinished() THEN
                GVL_coUnit.CurrentTestSuiteBeingCalled := GVL_coUnit.TestSuiteAddresses[Counter];
        (* Check if some event triggered an abortion of running the tests, in that case abort it now.
            NumberOfTestSuitesFinished := GVL_coUnit.NumberOfInitializedTestSuites;
        END_IF
    (* We need to hold a temporary state of the statistics (failed, successful, total number of test cases etc)
       The reason we want to do it this way is because a test suite can run over several cycles. Only once all tests