Diff of /trunk/coUnit/coUnit/Unit Test Framework for CODESYS/POUs/FB_coUnitRunner/RunTestSuiteTestsInSequence/svnobj [r447] .. [r448]  Maximize  Restore

Switch to side-by-side view

--- a/trunk/coUnit/coUnit/Unit Test Framework for CODESYS/POUs/FB_coUnitRunner/RunTestSuiteTestsInSequence/svnobj
+++ b/trunk/coUnit/coUnit/Unit Test Framework for CODESYS/POUs/FB_coUnitRunner/RunTestSuiteTestsInSequence/svnobj
@@ -1,5 +1,5 @@
-Gx_l!0…jüowv›¿ñ„Û$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
TimerBetweenExecutionOfTestSuites(PT := TimeBetweenTestSuitesExecution);8(* Run TcUnit test suites *)BIF NOT AllTestSuitesFinished THENp    IF GVL_coUnit.NumberOfInitializedTestSuites = 0 THENL        AllTestSuitesFinished := TRUE;v    ELSIF GVL_coUnit.NumberOfInitializedTestSuites > 0 THENf        IF TimerBetweenExecutionOfTestSuites.Q THENt            TimerBetweenExecutionOfTestSuites.IN := FALSE;        END_IF¾        IF GVL_coUnit.TestSuiteAddresses[CurrentlyRunningTestSuite]^.AreAllTestsFinished() THEN²            IF CurrentlyRunningTestSuite <> GVL_coUnit.NumberOfInitializedTestSuites THENš                NumberOfTestSuitesFinished := NumberOfTestSuitesFinished + 1;–                CurrentlyRunningTestSuite := CurrentlyRunningTestSuite + 1;z                TimerBetweenExecutionOfTestSuites.IN := TRUE;$            END_IFt        ELSIF NOT TimerBetweenExecutionOfTestSuites.Q THENÞ            GVL_coUnit.CurrentTestSuiteBeingCalled := GVL_coUnit.TestSuiteAddresses[CurrentlyRunningTestSuite];–            GVL_coUnit.CurrentTestSuiteBeingCalled^.SetHasStartedRunning(); l            GVL_coUnit.CurrentTestSuiteBeingCalled^();!Ê        (* 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 := GVL_coUnit.NumberOfInitializedTestSuites;%ª        IF NumberOfTestSuitesFinished = GVL_coUnit.NumberOfInitializedTestSuites THEN&T            AllTestSuitesFinished := TRUE;'    END_IF(END_IF)V(* Store test suite results continuously *)*TestResults();+R(* Log test suite results continuously *),NTestResultLogger.LogTestSuiteResults();-`(* publish the xUnit Xml file once if enabled *).ZXmlTestResultPublisher.LogTestSuiteResults();/B(* Run the buffered ADS logger *)0F(* GVL_coUnit.AdsMessageQueue(); *)1Interface2L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}3Š(* This runs all the test suites in sequence (one after the other) *)4VMETHOD INTERNAL RunTestSuiteTestsInSequence5VAR_INPUT6ð    TimeBetweenTestSuitesExecution : TIME; // Time delay between a test suite is finished and the next test suite starts7END_VAR8VAR90    BusyPrinting : BOOL;:v    (* We need to hold a temporary state of the statistics ;Þ       as we don't consider the tests to be completely finished until all test suites have executed completely.<è       The reason we want to do it this way is because a test suite can run over several cycles. Only once all tests=¬       are finished (which might take many cycles), do we gather correct statistics *)>V    NumberOfTestSuitesFinished : UINT := 0;?VAR_INST@¬    (* This variable holds which current test suite is being called, as we are runningAZ       each one in a sequence (one by one) *)BT    CurrentlyRunningTestSuite : UINT := 1;CX    TimerBetweenExecutionOfTestSuites : TOF;ÐÐÐE+ÐÐ	
+Gx_lÔ!0…jüoëí²ãÁ7o§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
TimerBetweenExecutionOfTestSuites(PT := TimeBetweenTestSuitesExecution);8(* Run TcUnit test suites *)BIF NOT AllTestSuitesFinished THENp    IF GVL_coUnit.NumberOfInitializedTestSuites = 0 THENL        AllTestSuitesFinished := TRUE;v    ELSIF GVL_coUnit.NumberOfInitializedTestSuites > 0 THENf        IF TimerBetweenExecutionOfTestSuites.Q THENt            TimerBetweenExecutionOfTestSuites.IN := FALSE;        END_IF¾        IF GVL_coUnit.TestSuiteAddresses[CurrentlyRunningTestSuite]^.AreAllTestsFinished() THEN²            IF CurrentlyRunningTestSuite <> GVL_coUnit.NumberOfInitializedTestSuites THENš                NumberOfTestSuitesFinished := NumberOfTestSuitesFinished + 1;–                CurrentlyRunningTestSuite := CurrentlyRunningTestSuite + 1;z                TimerBetweenExecutionOfTestSuites.IN := TRUE;$            END_IFt        ELSIF NOT TimerBetweenExecutionOfTestSuites.Q THENÞ            GVL_coUnit.CurrentTestSuiteBeingCalled := GVL_coUnit.TestSuiteAddresses[CurrentlyRunningTestSuite];–            GVL_coUnit.CurrentTestSuiteBeingCalled^.SetHasStartedRunning(); l            GVL_coUnit.CurrentTestSuiteBeingCalled^();!Ê        (* 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 := GVL_coUnit.NumberOfInitializedTestSuites;%ª        IF NumberOfTestSuitesFinished = GVL_coUnit.NumberOfInitializedTestSuites THEN&T            AllTestSuitesFinished := TRUE;'    END_IF(END_IF)V(* Store test suite results continuously *)*TestResults();+R(* Log test suite results continuously *),NTestResultLogger.LogTestSuiteResults();-`(* publish the xUnit Xml file once if enabled *).ZXmlTestResultPublisher.LogTestSuiteResults();/Interface0L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}1Š(* This runs all the test suites in sequence (one after the other) *)2VMETHOD INTERNAL RunTestSuiteTestsInSequence3VAR_INPUT4ð    TimeBetweenTestSuitesExecution : TIME; // Time delay between a test suite is finished and the next test suite starts5END_VAR6VAR70    BusyPrinting : BOOL;8v    (* We need to hold a temporary state of the statistics 9Þ       as we don't consider the tests to be completely finished until all test suites have executed completely.:è       The reason we want to do it this way is because a test suite can run over several cycles. Only once all tests;¬       are finished (which might take many cycles), do we gather correct statistics *)<V    NumberOfTestSuitesFinished : UINT := 0;=VAR_INST>¬    (* This variable holds which current test suite is being called, as we are running?Z       each one in a sequence (one by one) *)@T    CurrentlyRunningTestSuite : UINT := 1;AX    TimerBetweenExecutionOfTestSuites : TOF;ÐÐÐE)ÐÐ	
 ­<ÚÐ-
ÐÐ	
 ­=ÚÐ-ÐÐ	
 ­>ÚÐ-ÐÐ	
@@ -40,25 +40,23 @@
 ­aÚÐ-+ÐÐ	
 ­bÚÐ-,ÐÐ	
 ­cÚÐ--ÐÐ	
-­dÚÐ-.ÐÐ	
-­eÚÐ-/ÐÐ	
-­ÚÐ-0Ð12ÐEÐÐ	
-­*ÚÐ-3ÐÐ	
-­+ÚÐ-4ÐÐ	
-­,ÚÐ-5ÐÐ	
-­-ÚÐ-6ÐÐ	
-­.ÚÐ-7ÐÐ	
-­/ÚÐ-8ÐÐ	
-­0ÚÐ-9ÐÐ	
-­1ÚÐ-:ÐÐ	
-­2ÚÐ-;ÐÐ	
-­3ÚÐ-<ÐÐ	
-­4ÚÐ-=ÐÐ	
-­5ÚÐ->ÐÐ	
-­6ÚÐ-7ÐÐ	
-­7ÚÐ-?ÐÐ	
-­8ÚÐ-@ÐÐ	
-­9ÚÐ-AÐÐ	
-­:ÚÐ-BÐÐ	
-­;ÚÐ-CÐÐ	
-­ÚÐ-7
\ No newline at end of file
+­dÚÐ-.Ð/0ÐEÐÐ	
+­*ÚÐ-1ÐÐ	
+­+ÚÐ-2ÐÐ	
+­,ÚÐ-3ÐÐ	
+­-ÚÐ-4ÐÐ	
+­.ÚÐ-5ÐÐ	
+­/ÚÐ-6ÐÐ	
+­0ÚÐ-7ÐÐ	
+­1ÚÐ-8ÐÐ	
+­2ÚÐ-9ÐÐ	
+­3ÚÐ-:ÐÐ	
+­4ÚÐ-;ÐÐ	
+­5ÚÐ-<ÐÐ	
+­6ÚÐ-5ÐÐ	
+­7ÚÐ-=ÐÐ	
+­8ÚÐ->ÐÐ	
+­9ÚÐ-?ÐÐ	
+­:ÚÐ-@ÐÐ	
+­;ÚÐ-AÐÐ	
+­ÚÐ-5
\ No newline at end of file