co♻e: unittest framework for CODESYS

57 lines (57 with data), 8.2 kB

Gx_l
я!0Еj№o~╠s0kI9E╠║

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;4Interface5L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}60METHOD RunTestSuiteTests7VAR80    Counter : UINT := 0;90    BusyPrinting : BOOL;:	;╪
	(* We need to hold a temporary state of the statistics (failed, successful, total amount of test cases etc)<▐
       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 *)?`    NumberOfTestSuitesFinished_Temp : UINT := 0;@N    NumberOfTestCases_Temp : UINT := 0;AZ    NumberOfFailedTestCases_Temp : UINT := 0;Bb    NumberOfSuccessfulTestCases_Temp : UINT := 0;CEND_VAR╨╨
╨
E)╨╨	
нx
┌╨
-
╨╨	
нy
┌╨
-╨╨	
нz
┌╨
-╨╨	
н{
┌╨
-╨╨	
н|
┌╨
-╨╨	
н}
┌╨
-╨╨	
н~
┌╨
-╨╨	
н
┌╨
-╨╨	
нА
┌╨
-╨╨	
нБ
┌╨
-╨╨	
нВ
┌╨
-╨╨	
нГ
┌╨
-╨╨	
нД
┌╨
-╨╨	
нЕ
┌╨
-╨╨	
нЖ
┌╨
-╨╨	
нЗ
┌╨
-╨╨	
нИ
┌╨
-╨╨	
нЙ
┌╨
-╨╨	
нК
┌╨
-╨╨	
нЛ
┌╨
- ╨╨	
нМ
┌╨
-!╨╨	
нН
┌╨
-"╨╨	
нО
┌╨
-#╨╨	
нП
┌╨
-$╨╨	
нР
┌╨
-%╨╨	
нС
┌╨
-&╨╨	
нТ
┌╨
-'╨╨	
нУ
┌╨
-(╨╨	
нФ
┌╨
-)╨╨	
нХ
┌╨
-*╨╨	
нЦ
┌╨
-+╨╨	
нЧ
┌╨
-,╨╨	
нШ
┌╨
--╨╨	
нЩ
┌╨
-.╨╨	
нЪ
┌╨
-/╨╨	
нЫ
┌╨
-0╨╨	
нЬ
┌╨
-1╨╨	
нЭ
┌╨
-2╨╨	
нЮ
┌╨
-3╨╨	
нЯ
┌╨
-)╨╨	
н┌╨
-*╨45
╨
E╨╨	
нk
┌╨
-6╨╨	
нl
┌╨
-7╨╨	
нm
┌╨
-8╨╨	
нn
┌╨
-9╨╨	
нo
┌╨
-:╨╨	
нp
┌╨
-;╨╨	
нq
┌╨
-<╨╨	
нr
┌╨
-=╨╨	
нs
┌╨
->╨╨	
нt
┌╨
-?╨╨	
нu
┌╨
-@╨╨	
нv
┌╨
-A╨╨	
нw
┌╨
-B╨╨	
н
┌╨
-C