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 |