co♻e: unittest framework for CODESYS

103 lines (103 with data), 12.6 kB

Gx_l
1!0…jüoi'™èðp	mè

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 PrintingTestSuiteResultNumber <= GVL_CfUnit.NumberOfInitializedTestSuites AND NOT PrintedTestSuitesResults THENò
    PrintingTestSuiteTrigger(CLK := GVL_CfUnit.TestSuiteAddresses[PrintingTestSuiteResultNumber]^.AreAllTestsFinished());L    IF PrintingTestSuiteTrigger.Q THENŽ
        StringToPrint := CONCAT(STR1 := '| Test suite $'%s$' with ID=',Ü
                                 STR2 := UINT_TO_STRING(TestResults[PrintingTestSuiteResultNumber].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[PrintingTestSuiteResultNumber].Name);b        (* Print number of tests in test suite *)`        StringToPrint := CONCAT(STR1 := '| ID=',|                                 STR2 := ' number of tests=');æ
                                 STR2 := UINT_TO_STRING(TestResults[PrintingTestSuiteResultNumber].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[PrintingTestSuiteResultNumber].NumberOfFailedTests));"n        (* Iterate and print all tests in test suite *)#Ø
        FOR TestsInTestSuiteCounter := 1 TO TestResults[PrintingTestSuiteResultNumber].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[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestName);(N            (* Print test class name *))ˆ
                                MsgFmtStr := '| Test class name=%s',*š                                StrArg := TestResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestClassName);+		END_FOR,        -°
        IF PrintingTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites THEN.Z            PrintedTestSuitesResults := TRUE;/        ELSE0ž
            PrintingTestSuiteResultNumber := PrintingTestSuiteResultNumber + 1;1        END_IF2€
        PrintingTestSuiteTrigger(CLK := FALSE); // Reset trigger3    END_IF4END_IF5€
(* Log end results once all test suites have finished running *)6à
IF PrintingTestSuiteResultNumber = 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==========');Ar                        MsgFmtStr := '| Test suites: %s',BŒ
                        StrArg := UINT_TO_STRING(NumberOfTestSuites));Cf                        MsgFmtStr := '| Tests: %s',DŠ
                        StrArg := UINT_TO_STRING(NumberOfTestCases));E|                        MsgFmtStr := '| Successful tests: %s',Fž
                        StrArg := UINT_TO_STRING(NumberOfSuccessfulTestCases));Gt                        MsgFmtStr := '| Failed tests: %s',H–
                        StrArg := UINT_TO_STRING(NumberOfFailedTestCases));Iœ
                        StrArg := '| ======================================');JH    PrintedFinalTestResults := TRUE;KInterfaceLL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}MBMETHOD PUBLIC LogTestSuiteResultsNVAR_INPUTOÌ
    TestResults : REFERENCE TO ARRAY[1..GVL_Param_CfUnit.MaxNumberOfTestSuites] OF ST_TestSuiteResult;PEND_VARQVARRB    StringToPrint : T_MaxString; S²
    TestsInTestSuiteCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestsForEachTestSuite);T<    NumberOfTestSuites : UINT;U:    NumberOfTestCases : UINT;VN    NumberOfSuccessfulTestCases : UINT;WF    NumberOfFailedTestCases : UINT;X´
    GeneralTestResultsTestSuitesCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestSuites);ÐÐ
Ð
EVÐÐ	
­ÚÐ
-
ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­	ÚÐ
-ÐÐ	
­
ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­
ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ ÚÐ
-ÐÐ	
­!ÚÐ
-ÐÐ	
­"ÚÐ
-ÐÐ	
­#ÚÐ
- ÐÐ	
­$ÚÐ
-ÐÐ	
­%ÚÐ
-!ÐÐ	
­&ÚÐ
-ÐÐ	
­'ÚÐ
-ÐÐ	
­(ÚÐ
-ÐÐ	
­)ÚÐ
-ÐÐ	
­*ÚÐ
-"ÐÐ	
­+ÚÐ
-#ÐÐ	
­,ÚÐ
-$ÐÐ	
­-ÚÐ
-%ÐÐ	
­.ÚÐ
-&ÐÐ	
­/ÚÐ
-'ÐÐ	
­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ÚÐ
-<ÐÐ	
­HÚÐ
-=ÐÐ	
­IÚÐ
->ÐÐ	
­fÚÐ
-?ÐÐ	
­KÚÐ
-@ÐÐ	
­LÚÐ
->ÐÐ	
­MÚÐ
-AÐÐ	
­NÚÐ
-BÐÐ	
­OÚÐ
->ÐÐ	
­PÚÐ
-CÐÐ	
­QÚÐ
-DÐÐ	
­RÚÐ
->ÐÐ	
­SÚÐ
-EÐÐ	
­TÚÐ
-FÐÐ	
­UÚÐ
->ÐÐ	
­VÚÐ
-GÐÐ	
­WÚÐ
-HÐÐ	
­XÚÐ
->ÐÐ	
­YÚÐ
-?ÐÐ	
­ZÚÐ
-IÐÐ	
­[ÚÐ
-JÐÐ	
­ÚÐ
-4ÐKL
Ð
EÐÐ	
­ÚÐ
-MÐÐ	
­ÚÐ
-NÐÐ	
­ÚÐ
-OÐÐ	
­
ÚÐ
-PÐÐ	
­]ÚÐ
-QÐÐ	
­^ÚÐ
-RÐÐ	
­_ÚÐ
-SÐÐ	
­`ÚÐ
-=ÐÐ	
­aÚÐ
-TÐÐ	
­bÚÐ
-UÐÐ	
­cÚÐ
-VÐÐ	
­dÚÐ
-WÐÐ	
­eÚÐ
-XÐÐ	
­\ÚÐ
-P