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

Download this file

67 lines (67 with data), 9.5 kB

Gx_l%!0…jüoº÷•[€9«d<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 THENp    IF GVL_CfUnit.NumberOfInitializedTestSuites = 0 THENL        AllTestSuitesFinished := TRUE;v    ELSIF GVL_CfUnit.NumberOfInitializedTestSuites > 0 THEN˜        FOR Counter := 1 TO GVL_CfUnit.NumberOfInitializedTestSuites BY 1 DOœ            IF GVL_CfUnit.TestSuiteAddresses[Counter]^.AllTestsFinished() THEN®                NumberOfTestSuitesFinished_Temp := NumberOfTestSuitesFinished_Temp + 1;ü                NumberOfTestCases_Temp := GVL_CfUnit.TestSuiteAddresses[Counter]^.GetNumberOfTests() + NumberOfTestCases_Temp;                 NumberOfFailedTestCases_Temp := GVL_CfUnit.TestSuiteAddresses[Counter]^.GetNumberOfFailedTests() + NumberOfFailedTestCases_Temp;¸                NumberOfSuccessfulTestCases_Temp := GVL_CfUnit.TestSuiteAddresses[Counter]^.GetNumberOfSuccessfulTests() + NumberOfSuccessfulTestCases_Temp;             ELSE                GVL_CfUnit.CurrentTestSuiteBeingCalled := GVL_CfUnit.TestSuiteAddresses[Counter];t                GVL_CfUnit.CurrentTestSuiteBeingCalled^();$            END_IF        END_FOR¾		(* Check if some event triggered an abortion of running the tests, in that case abort it now.À           This can be accomplished by setting the result of the test suites run to finished. *)L        IF AbortRunningTestSuites THEN°            NumberOfTestSuitesFinished_Temp := GVL_CfUnit.NumberOfInitializedTestSuites; 		END_IF!´        IF NumberOfTestSuitesFinished_Temp = GVL_CfUnit.NumberOfInitializedTestSuites THEN"Z            (* Copy the final results over *)#”            NumberOfTestSuitesFinished := NumberOfTestSuitesFinished_Temp;$p            NumberOfTestCases := NumberOfTestCases_Temp;%ˆ            NumberOfFailedTestCases := NumberOfFailedTestCases_Temp;&˜            NumberOfSuccessfulTestCases := NumberOfSuccessfulTestCases_Temp;'T            AllTestSuitesFinished := TRUE;(        END_IF)    END_IF*END_IF+,:IF AllTestSuitesFinished THEN-N    IF NOT DonePrintingTestResults THEN.¤        TestResultPrinter.Format(NumberOfTestSuites := NumberOfTestSuitesFinished,/                                 NumberOfTestCases := NumberOfTestCases,0¸                                 NumberOfSuccessfulTestCases := NumberOfSuccessfulTestCases,1¨                                 NumberOfFailedTestCases := NumberOfFailedTestCases,2n                                 Busy => BusyPrinting);3h        DonePrintingTestResults := NOT BusyPrinting;4    52    // 14-12-2019 Aliazzz6J    IF NOT DoneBusyGeneratingXml THEN7¤        xUnitFileComposer.Format(NumberOfTestSuites := NumberOfTestSuitesFinished,8”                                   NumberOfTestCases := NumberOfTestCases,9¼                                   NumberOfSuccessfulTestCases := NumberOfSuccessfulTestCases,:¬                                   NumberOfFailedTestCases := NumberOfFailedTestCases,;|                                   Busy => BusyGeneratingXml);<l       DoneBusyGeneratingXml := NOT BusyGeneratingXml;=    END_IF; >Interface?L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}@0METHOD RunTestSuiteTestsAVARB0    Counter : UINT := 0;C0    BusyPrinting : BOOL;D	EØ	(* We need to hold a temporary state of the statistics (failed, successful, total amount of test cases etc)FÞ       as we don't consider the tests to be completely finished until all test suites have executed completely.Gè       The reason we want to do it this way is because a test suite can run over several cycles. Only once all testsH¬       are finished (which might take many cycles), do we gather correct statistics *)I`    NumberOfTestSuitesFinished_Temp : UINT := 0;JN    NumberOfTestCases_Temp : UINT := 0;KZ    NumberOfFailedTestCases_Temp : UINT := 0;Lb    NumberOfSuccessfulTestCases_Temp : UINT := 0;MEND_VARÐÐÐE3ÐÐ	
­xÚÐ-
ÐÐ	
­yÚÐ-ÐÐ	
­zÚÐ-ÐÐ	
­{ÚÐ-ÐÐ	
­|ÚÐ-ÐÐ	
­}ÚÐ-ÐÐ	
­~ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­€ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­‚ÚÐ-ÐÐ	
­ƒÚÐ-ÐÐ	
­„ÚÐ-ÐÐ	
­…ÚÐ-ÐÐ	
­†ÚÐ-ÐÐ	
­‡ÚÐ-ÐÐ	
­ˆÚÐ-ÐÐ	
­‰ÚÐ-ÐÐ	
­ŠÚÐ-ÐÐ	
­‹ÚÐ- ÐÐ	
­ŒÚÐ-!ÐÐ	
­ÚÐ-"ÐÐ	
­ŽÚÐ-#ÐÐ	
­ÚÐ-$ÐÐ	
­ÚÐ-%ÐÐ	
­‘ÚÐ-&ÐÐ	
­’ÚÐ-'ÐÐ	
­“ÚÐ-(ÐÐ	
­”ÚÐ-)ÐÐ	
­•ÚÐ-*ÐÐ	
­–ÚÐ-+ÐÐ	
­—ÚÐ-,ÐÐ	
­˜ÚÐ--ÐÐ	
­™ÚÐ-.ÐÐ	
­šÚÐ-/ÐÐ	
­›ÚÐ-0ÐÐ	
­œÚÐ-1ÐÐ	
­ÚÐ-2ÐÐ	
­žÚÐ-3ÐÐ	
­ŸÚÐ-)ÐÐ	
­ÎÚÐ-4ÐÐ	
­ÇÚÐ-5ÐÐ	
­ÏÚÐ-6ÐÐ	
­ÖÚÐ-7ÐÐ	
­×ÚÐ-8ÐÐ	
­ØÚÐ-9ÐÐ	
­ÌÚÐ-:ÐÐ	
­ÍÚÐ-;ÐÐ	
­ÕÚÐ-<ÐÐ	
­ÒÚÐ-=ÐÐ	
­ÚÐ-*Ð>?ÐEÐÐ	
­kÚÐ-@ÐÐ	
­lÚÐ-AÐÐ	
­mÚÐ-BÐÐ	
­nÚÐ-CÐÐ	
­oÚÐ-DÐÐ	
­pÚÐ-EÐÐ	
­qÚÐ-FÐÐ	
­rÚÐ-GÐÐ	
­sÚÐ-HÐÐ	
­tÚÐ-IÐÐ	
­uÚÐ-JÐÐ	
­vÚÐ-KÐÐ	
­wÚÐ-LÐÐ	
­ÚÐ-M