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

Download this file

13 lines (12 with data), 7.7 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
        IF GVL_coUnit.TestSuiteAddresses[CurrentlyRunningTestSuite]^.AreAllTestsFinished() THEN
                NumberOfTestSuitesFinished := NumberOfTestSuitesFinished + 1;
            GVL_coUnit.CurrentTestSuiteBeingCalled := GVL_coUnit.TestSuiteAddresses[CurrentlyRunningTestSuite];
        (* Check if some event triggered an abortion of running the tests, in that case abort it now.
            NumberOfTestSuitesFinished := GVL_coUnit.NumberOfInitializedTestSuites;
(* This runs all the test suites in sequence (one after the other) *)
METHOD INTERNAL RunTestSuiteTestsInSequence
VAR_INPUT
       as we don't consider the tests to be completely finished until all test suites have executed completely.
       are finished (which might take many cycles), do we gather correct statistics *)
    NumberOfTestSuitesFinished : UINT := 0;
VAR_INST