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

Download this file

52 lines (52 with data), 7.4 kB

Gx_lÇ!0…jüoæHò$ç¹ÁÚF®System.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
BIF NOT AllTestSuitesFinished THENb    IF GVL.AmountOfInitializedTestSuites = 0 THENL        AllTestSuitesFinished := TRUE;h    ELSIF GVL.AmountOfInitializedTestSuites > 0 THENŠ        FOR Counter := 1 TO GVL.AmountOfInitializedTestSuites BY 1 DO¨            IF RunnableTestSuiteResults[Counter] = E_TestSuiteRunState.FINISHED THEN®                AmountOfTestSuitesFinished_Temp := AmountOfTestSuitesFinished_Temp + 1;ì                AmountOfTestCases_Temp := GVL.TestSuiteAddresses[Counter].GetAmountOfTests() + AmountOfTestCases_Temp;                AmountOfFailedTestCases_Temp := GVL.TestSuiteAddresses[Counter].GetAmountOfFailedTests() + AmountOfFailedTestCases_Temp;¨                AmountOfSuccessfulTestCases_Temp := GVL.TestSuiteAddresses[Counter].GetAmountOfSuccessfulTests() + AmountOfSuccessfulTestCases_Temp;             ELSE¦                GVL.CurrentTestSuiteBeingCalled := GVL.TestSuiteAddresses[Counter];î                RunnableTestSuiteResults[Counter] := GVL.CurrentTestSuiteBeingCalled.GetRunnableTestSuite().RunTests();$            END_IF        END_FOR¦        IF AmountOfTestSuitesFinished_Temp = GVL.AmountOfInitializedTestSuites THENZ            (* Copy the final results over *)”            AmountOfTestSuitesFinished := AmountOfTestSuitesFinished_Temp;p            AmountOfTestCases := AmountOfTestCases_Temp; ˆ            AmountOfFailedTestCases := AmountOfFailedTestCases_Temp;!˜            AmountOfSuccessfulTestCases := AmountOfSuccessfulTestCases_Temp;"T            AllTestSuitesFinished := TRUE;#        END_IF$    END_IF%END_IF&':IF AllTestSuitesFinished THEN(N    IF NOT DonePrintingTestResults THEN)¤        TestResultPrinter.Format(AmountOfTestSuites := AmountOfTestSuitesFinished,*                                 AmountOfTestCases := AmountOfTestCases,+¸                                 AmountOfSuccessfulTestCases := AmountOfSuccessfulTestCases,,¨                                 AmountOfFailedTestCases := AmountOfFailedTestCases,-n                                 Busy => BusyPrinting);.h        DonePrintingTestResults := NOT BusyPrinting;/Interface0L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}10METHOD RunTestSuiteTests2VAR30    Counter : UINT := 0;40    BusyPrinting : BOOL;5Ø	(* We need to hold a temporary state of the statistics (failed, successful, total amount of test cases etc)6Þ       as we don't consider the tests to be completely finished until all test suites have executed completely.7è       The reason we want to do it this way is because a test suite can run over several cycles. Only once all tests8¬       are finished (which might take many cycles), do we gather correct statistics *)9`    AmountOfTestSuitesFinished_Temp : UINT := 0;:N    AmountOfTestCases_Temp : UINT := 0;;Z    AmountOfFailedTestCases_Temp : UINT := 0;<b    AmountOfSuccessfulTestCases_Temp : UINT := 0;=END_VARÐÐÐE$ÐÐ	
­ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­	ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ- ÐÐ	
­ÚÐ-!ÐÐ	
­ÚÐ-"ÐÐ	
­ÚÐ-#ÐÐ	
­ÚÐ-$ÐÐ	
­ÚÐ-%ÐÐ	
­ÚÐ-&ÐÐ	
­ÚÐ-'ÐÐ	
­ÚÐ-(ÐÐ	
­ÚÐ-)ÐÐ	
­ ÚÐ-*ÐÐ	
­!ÚÐ-+ÐÐ	
­"ÚÐ-,ÐÐ	
­#ÚÐ--ÐÐ	
­$ÚÐ-.ÐÐ	
­%ÚÐ-$ÐÐ	
­ÚÐ-%Ð/0ÐE
ÐÐ	
­&ÚÐ-1ÐÐ	
­'ÚÐ-2ÐÐ	
­(ÚÐ-3ÐÐ	
­)ÚÐ-4ÐÐ	
­4ÚÐ-5ÐÐ	
­5ÚÐ-6ÐÐ	
­6ÚÐ-7ÐÐ	
­3ÚÐ-8ÐÐ	
­/ÚÐ-9ÐÐ	
­0ÚÐ-:ÐÐ	
­1ÚÐ-;ÐÐ	
­2ÚÐ-<ÐÐ	
­ÚÐ-=