co♻e: unittest framework for CODESYS

102 lines (102 with data), 12.5 kB

Gx_l
Ù0!0…jüoH'wçMi		çCs

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
â
IF PrintedTestSuiteResultNumber <= GVL_CfUnit.NumberOfInitializedTestSuites AND NOT PrintedTestSuitesResults THENî
    PrintedTestSuiteTrigger(CLK := GVL_CfUnit.TestSuiteAddresses[PrintedTestSuiteResultNumber]^.AreAllTestsFinished());J    IF PrintedTestSuiteTrigger.Q THENŽ
        StringToPrint := CONCAT(STR1 := '| Test suite $'%s$' with ID=',Ú
                                 STR2 := UINT_TO_STRING(TestResults[PrintedTestSuiteResultNumber].Identity));l        StringToPrint := CONCAT(STR1 := StringToPrint,|                                 STR2 := ' finished running');T        (* Print test suite name and ID *)¢
        WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),Ž
                                            MsgFmtStr := StringToPrint,Ì
                                            StrArg := TestResults[PrintedTestSuiteResultNumber].Name);b        (* Print number of tests in test suite *)`        StringToPrint := CONCAT(STR1 := '| ID=',|                                 STR2 := ' number of tests=');ä
                                 STR2 := UINT_TO_STRING(TestResults[PrintedTestSuiteResultNumber].NumberOfTests));j                          MsgFmtStr := StringToPrint,P                          StrArg := '');p        (* Print number of failed tests in test suite *) Š
                                 STR2 := ' number of failed tests=');!ð
                                 STR2 := UINT_TO_STRING(TestResults[PrintedTestSuiteResultNumber].NumberOfFailedTests));"n        (* Iterate and print all tests in test suite *)#Ö
        FOR TestsInTestSuiteCounter := 1 TO TestResults[PrintedTestSuiteResultNumber].NumberOfTests BY 1 DO$B            (* Print test name *)%ª
            WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),&|                                MsgFmtStr := '| Test name=%s','Ž                                StrArg := TestResults[PrintedTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestName);(N            (* Print test class name *))ˆ
                                MsgFmtStr := '| Test class name=%s',*˜                                StrArg := TestResults[PrintedTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestClassName);+		END_FOR,        -®
        IF PrintedTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites THEN.Z            PrintedTestSuitesResults := TRUE;/        ELSE0š
            PrintedTestSuiteResultNumber := PrintedTestSuiteResultNumber + 1;1        END_IF2~        PrintedTestSuiteTrigger(CLK := FALSE); // Reset trigger3    END_IF4END_IF5€
(* Log end results once all test suites have finished running *)6Þ
IF PrintedTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites AND NOT PrintedFinalTestResults THEN7†
    NumberOfTestSuites := GVL_CfUnit.NumberOfInitializedTestSuites;8È
    FOR GeneralTestResultsTestSuitesCounter := 1 TO GVL_CfUnit.NumberOfInitializedTestSuites BY 1 DO9à
        NumberOfTestCases := NumberOfTestCases + TestResults[GeneralTestResultsTestSuitesCounter].NumberOfTests;:š        NumberOfSuccessfulTestCases := NumberOfSuccessfulTestCases + (TestResults[GeneralTestResultsTestSuitesCounter].NumberOfTests - TestResults[GeneralTestResultsTestSuitesCounter].NumberOfFailedTests);;„        NumberOfFailedTestCases := NumberOfFailedTestCases + TestResults[GeneralTestResultsTestSuitesCounter].NumberOfFailedTests;<	END_FOR=š
    WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),>T                        MsgFmtStr := '%s',?¤
                        StrArg := '| ==========TESTS FINISHED RUNNING==========');@r                        MsgFmtStr := '| Test suites: %s',AŒ
                        StrArg := UINT_TO_STRING(NumberOfTestSuites));Bf                        MsgFmtStr := '| Tests: %s',CŠ
                        StrArg := UINT_TO_STRING(NumberOfTestCases));D|                        MsgFmtStr := '| Successful tests: %s',Ež
                        StrArg := UINT_TO_STRING(NumberOfSuccessfulTestCases));Ft                        MsgFmtStr := '| Failed tests: %s',G–
                        StrArg := UINT_TO_STRING(NumberOfFailedTestCases));Hœ
                        StrArg := '| ======================================');IH    PrintedFinalTestResults := TRUE;JInterfaceKL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}LBMETHOD PUBLIC LogTestSuiteResultsMVAR_INPUTNÌ
    TestResults : REFERENCE TO ARRAY[1..GVL_Param_CfUnit.MaxNumberOfTestSuites] OF ST_TestSuiteResult;OEND_VARPVARQB    StringToPrint : T_MaxString; R²
    TestsInTestSuiteCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestsForEachTestSuite);S    T<    NumberOfTestSuites : UINT;U:    NumberOfTestCases : UINT;VN    NumberOfSuccessfulTestCases : UINT;WF    NumberOfFailedTestCases : UINT;X´
    GeneralTestResultsTestSuitesCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestSuites);ÐÐ
Ð
EUÐÐ	
­ÚÐ
-
ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­	ÚÐ
-ÐÐ	
­
ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­
ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ ÚÐ
-ÐÐ	
­!ÚÐ
-ÐÐ	
­"ÚÐ
-ÐÐ	
­#ÚÐ
- ÐÐ	
­$ÚÐ
-ÐÐ	
­%ÚÐ
-!ÐÐ	
­&ÚÐ
-ÐÐ	
­'ÚÐ
-ÐÐ	
­(ÚÐ
-ÐÐ	
­)ÚÐ
-ÐÐ	
­*ÚÐ
-"ÐÐ	
­+ÚÐ
-#ÐÐ	
­,ÚÐ
-$ÐÐ	
­-ÚÐ
-%ÐÐ	
­.ÚÐ
-&ÐÐ	
­/ÚÐ
-'ÐÐ	
­0ÚÐ
-(ÐÐ	
­1ÚÐ
-%ÐÐ	
­2ÚÐ
-)ÐÐ	
­3ÚÐ
-*ÐÐ	
­5ÚÐ
-+ÐÐ	
­6ÚÐ
-,ÐÐ	
­7ÚÐ
--ÐÐ	
­8ÚÐ
-.ÐÐ	
­9ÚÐ
-/ÐÐ	
­:ÚÐ
-0ÐÐ	
­;ÚÐ
-1ÐÐ	
­<ÚÐ
-2ÐÐ	
­=ÚÐ
-3ÐÐ	
­>ÚÐ
-4ÐÐ	
­?ÚÐ
-ÐÐ	
­@ÚÐ
-5ÐÐ	
­AÚÐ
-6ÐÐ	
­BÚÐ
-7ÐÐ	
­CÚÐ
-8ÐÐ	
­DÚÐ
-9ÐÐ	
­EÚÐ
-:ÐÐ	
­FÚÐ
-;ÐÐ	
­GÚÐ
-<ÐÐ	
­IÚÐ
-=ÐÐ	
­fÚÐ
->ÐÐ	
­KÚÐ
-?ÐÐ	
­LÚÐ
-=ÐÐ	
­MÚÐ
-@ÐÐ	
­NÚÐ
-AÐÐ	
­OÚÐ
-=ÐÐ	
­PÚÐ
-BÐÐ	
­QÚÐ
-CÐÐ	
­RÚÐ
-=ÐÐ	
­SÚÐ
-DÐÐ	
­TÚÐ
-EÐÐ	
­UÚÐ
-=ÐÐ	
­VÚÐ
-FÐÐ	
­WÚÐ
-GÐÐ	
­XÚÐ
-=ÐÐ	
­YÚÐ
->ÐÐ	
­ZÚÐ
-HÐÐ	
­[ÚÐ
-IÐÐ	
­ÚÐ
-4ÐJK
Ð
EÐÐ	
­ÚÐ
-LÐÐ	
­ÚÐ
-MÐÐ	
­gÚÐ
-NÐÐ	
­
ÚÐ
-OÐÐ	
­]ÚÐ
-PÐÐ	
­^ÚÐ
-QÐÐ	
­_ÚÐ
-RÐÐ	
­`ÚÐ
-SÐÐ	
­aÚÐ
-TÐÐ	
­bÚÐ
-UÐÐ	
­cÚÐ
-VÐÐ	
­dÚÐ
-WÐÐ	
­eÚÐ
-XÐÐ	
­\ÚÐ
-O