[r145]: / 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Г
GУБяЕ@┤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.AmountOfInitializedTestSuites = 0 THENL        AllTestSuitesFinished := TRUE;v    ELSIF GVL_CfUnit.AmountOfInitializedTestSuites > 0 THEN≤        FOR Counter := 1 TO GVL_CfUnit.AmountOfInitializedTestSuites BY 1 DO°            IF GVL_CfUnit.TestSuiteAddresses[Counter]^.AllTestsFinished() THEN╝                AmountOfTestSuitesFinished_Temp := AmountOfTestSuitesFinished_Temp + 1;Э                AmountOfTestCases_Temp := GVL_CfUnit.TestSuiteAddresses[Counter]^.GetAmountOfTests() + AmountOfTestCases_Temp;═                AmountOfFailedTestCases_Temp := GVL_CfUnit.TestSuiteAddresses[Counter]^.GetAmountOfFailedTests() + AmountOfFailedTestCases_Temp;╦                AmountOfSuccessfulTestCases_Temp := GVL_CfUnit.TestSuiteAddresses[Counter]^.GetAmountOfSuccessfulTests() + AmountOfSuccessfulTestCases_Temp;             ELSEб                GVL_CfUnit.CurrentTestSuiteBeingCalled := GVL_CfUnit.TestSuiteAddresses[Counter];t                GVL_CfUnit.CurrentTestSuiteBeingCalled^();$            END_IF        END_FORЄ        IF AmountOfTestSuitesFinished_Temp = GVL_CfUnit.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	6ь	(* We need to hold a temporary state of the statistics (failed, successful, total amount of test cases etc)7ч       as we don't consider the tests to be completely finished until all test suites have executed completely.8Х       The reason we want to do it this way is because a test suite can run over several cycles. Only once all tests9╛       are finished (which might take many cycles), do we gather correct statistics *):`    AmountOfTestSuitesFinished_Temp : UINT := 0;;N    AmountOfTestCases_Temp : UINT := 0;<Z    AmountOfFailedTestCases_Temp : UINT := 0;=b    AmountOfSuccessfulTestCases_Temp : UINT := 0;>END_VARпппE$пп	
ґ:зп-
пп	
ґ;зп-пп	
ґ<зп-пп	
ґ=зп-пп	
ґ>зп-пп	
ґ?зп-пп	
ґ@зп-пп	
ґAзп-пп	
ґBзп-пп	
ґCзп-пп	
ґDзп-пп	
ґEзп-пп	
ґFзп-пп	
ґHзп-пп	
ґIзп-пп	
ґJзп-пп	
ґKзп-пп	
ґLзп-пп	
ґMзп-пп	
ґNзп- пп	
ґOзп-!пп	
ґPзп-"пп	
ґQзп-#пп	
ґRзп-$пп	
ґSзп-%пп	
ґTзп-&пп	
ґUзп-'пп	
ґVзп-(пп	
ґWзп-)пп	
ґXзп-*пп	
ґYзп-+пп	
ґZзп-,пп	
ґ[зп--пп	
ґ\зп-.пп	
ґ]зп-$пп	
ґзп-%п/0пEпп	
ґ&зп-1пп	
ґ'зп-2пп	
ґ(зп-3пп	
ґ)зп-4пп	
ґ7зп-5пп	
ґ4зп-6пп	
ґ5зп-7пп	
ґ6зп-8пп	
ґ3зп-9пп	
ґ/зп-:пп	
ґ0зп-;пп	
ґ1зп-<пп	
ґ2зп-=пп	
ґзп->