[r152]: / trunk / Library / POUs / FB_CfUnitRunner / RunTestSuiteTests / svnobj  Maximize  Restore  History

Download this file

16 lines (15 with data), 7.4 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
IF NOT AllTestSuitesFinished THEN
    IF GVL_CfUnit.NumberOfInitializedTestSuites = 0 THEN
        AllTestSuitesFinished := TRUE;
    ELSIF GVL_CfUnit.NumberOfInitializedTestSuites > 0 THEN
            IF GVL_CfUnit.TestSuiteAddresses[Counter]^.AllTestsFinished() THEN
                AmountOfTestCases_Temp := GVL_CfUnit.TestSuiteAddresses[Counter]^.GetAmountOfTests() + AmountOfTestCases_Temp;
                AmountOfSuccessfulTestCases_Temp := GVL_CfUnit.TestSuiteAddresses[Counter]^.GetAmountOfSuccessfulTests() + AmountOfSuccessfulTestCases_Temp;
            ELSE
        IF AmountOfTestSuitesFinished_Temp = GVL_CfUnit.NumberOfInitializedTestSuites THEN
            (* Copy the final results over *)
            AmountOfFailedTestCases := AmountOfFailedTestCases_Temp;
        TestResultPrinter.Format(AmountOfTestSuites := AmountOfTestSuitesFinished,
                                 AmountOfSuccessfulTestCases := AmountOfSuccessfulTestCases,
	(* We need to hold a temporary state of the statistics (failed, successful, total amount 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