co♻e: unittest framework for CODESYS

120 lines (120 with data), 17.0 kB

Gx_l
€B!0…jüo'7“ò˜1ÙÐE

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
rCfUnitTestResults REF= TestResults.GetTestSuiteResults();ä
IF PrintingTestSuiteResultNumber <= GVL_CfUnit.NumberOfInitializedTestSuites AND NOT PrintedTestSuitesResults THENò
    PrintingTestSuiteTrigger(CLK := GVL_CfUnit.TestSuiteAddresses[PrintingTestSuiteResultNumber]^.AreAllTestsFinished());L    IF PrintingTestSuiteTrigger.Q THENv        StringToPrint := CONCAT(STR1 := '| Test suite ID=',¢                                             STR2 := UINT_TO_STRING(CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].Identity));l        StringToPrint := CONCAT(STR1 := StringToPrint,‚
                                             STR2 :=  ' $'%s$'');Z                                             T        (* Print test suite name and ID *)¢
        WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),Ž
                                            MsgFmtStr := StringToPrint,ü
                                            StrArg := CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].Name);Ž
        (* Print number of tests/number of failed test in test suite *)`        StringToPrint := CONCAT(STR1 := '| ID=',ˆ                                STR2 := UINT_TO_STRING(CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].Identity));z                                STR2 := ' number of tests=');’                                STR2 := UINT_TO_STRING(CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].NumberOfTests)); Š
                                STR2 := ', number of failed tests=');!¸                                             STR2 := UINT_TO_STRING(CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].NumberOfFailedTests));"j                          MsgFmtStr := StringToPrint,#P                          StrArg := '');$       %n        (* Iterate and print all tests in test suite *)&†        FOR TestsInTestSuiteCounter := 1 TO CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].NumberOfTests BY 1 DO'B            (* Print test name *)(ª
            WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),)v                             MsgFmtStr := '| Test name=%s',*¸                             StrArg := CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestName);+N            (* Print test class name *),‚
                             MsgFmtStr := '| Test class name=%s',-Â                             StrArg := CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestClassName);.@                                /Â
            (* Print test result/status (SUCCESS, FAILED, SKIPPED) + number of assertions made *)0–            IF CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestIsFailed THEN1¸
                StringToPrint := CONCAT(STR1 := '| Test status=', STR2 := TEST_STATUS_FAIL);2ž            ELSIF CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestIsSkipped THEN3¸
                StringToPrint := CONCAT(STR1 := '| Test status=', STR2 := TEST_STATUS_SKIP);4             ELSE5¸
                StringToPrint := CONCAT(STR1 := '| Test status=', STR2 := TEST_STATUS_PASS);6			END_IF7            8¶
            StringToPrint := CONCAT(STR1 := StringToPrint, STR2 := ', number of asserts=');9„
            StringToPrint := CONCAT(STR1 := StringToPrint, STR2 :=:ú                                                 UINT_TO_STRING(CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].NumberOfAsserts));;p                             MsgFmtStr := StringToPrint,<V                             StrArg := '');=~            (* Print assertion/failure message (if existing) *)>º            IF LEN(STR := CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureMessage) > 0 THEN?²
                WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),@’
                                 MsgFmtStr := '| Test assert message=%s',AÌ                                 StrArg := CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureMessage);B$            END_IFCx            (* Print assertion/failure type (if existing) *)DØ            IF CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureType <> E_AssertionType.Type_UNDEFINED THENEŒ
                                 MsgFmtStr := '| Test assert type=%s',F¦
                                 StrArg := F_AssertionTypeToString(AssertionType :=G´                                 CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureType));H        END_FORI°
        IF PrintingTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites THENJZ            PrintedTestSuitesResults := TRUE;K        ELSELž
            PrintingTestSuiteResultNumber := PrintingTestSuiteResultNumber + 1;M        END_IFN€
        PrintingTestSuiteTrigger(CLK := FALSE); // Reset triggerO    END_IFPEND_IFQ€
(* Log end results once all test suites have finished running *)R¾IF PrintingTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites AND NOT PrintedFinalTestResults AND TestResults.GetAreTestResultsAvailable() THEN  Sœ
    WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_ERROR),TT                        MsgFmtStr := '%s',U¤
                        StrArg := '| ==========TESTS FINISHED RUNNING==========');Vr                        MsgFmtStr := '| Test suites: %s',W°
                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfTestSuites));Xf                        MsgFmtStr := '| Tests: %s',Y®
                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfTestCases));Z|                        MsgFmtStr := '| Successful tests: %s',[Â
                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfSuccessfulTestCases));\t                        MsgFmtStr := '| Failed tests: %s',]º
                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfFailedTestCases));^œ
                        StrArg := '| ======================================');_H    PrintedFinalTestResults := TRUE;`InterfaceaL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}bBMETHOD PUBLIC LogTestSuiteResultscVARdr    CfUnitTestResults : REFERENCE TO ST_TestSuiteResults;eB    StringToPrint : T_MaxString; f²
    TestsInTestSuiteCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestsForEachTestSuite);gEND_VARhVAR CONSTANTiP    TEST_STATUS_SKIP : STRING := 'SKIP';jP    TEST_STATUS_PASS : STRING := 'PASS';kP    TEST_STATUS_FAIL : STRING := 'FAIL';ÐÐ
Ð
EkÐÐ	
­”ÚÐ
-
ÐÐ	
­“ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÀÚÐ
-ÐÐ	
­ÁÚÐ
-ÐÐ	
­ÂÚÐ
-ÐÐ	
­ÃÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÄÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­¯ÚÐ
-ÐÐ	
­²ÚÐ
-ÐÐ	
­±ÚÐ
- ÐÐ	
­­ÚÐ
-ÐÐ	
­¬ÚÐ
-!ÐÐ	
­®ÚÐ
-ÐÐ	
­ÚÐ
-ÐÐ	
­ÚÐ
-"ÐÐ	
­ÚÐ
-#ÐÐ	
­6ÚÐ
-$ÐÐ	
­kÚÐ
-%ÐÐ	
­lÚÐ
-&ÐÐ	
­ƒÚÐ
-'ÐÐ	
­„ÚÐ
-(ÐÐ	
­…ÚÐ
-)ÐÐ	
­†ÚÐ
-*ÐÐ	
­‡ÚÐ
-+ÐÐ	
­ˆÚÐ
-(ÐÐ	
­‰ÚÐ
-,ÐÐ	
­tÚÐ
--ÐÐ	
­ŸÚÐ
-.ÐÐ	
­¡ÚÐ
-/ÐÐ	
­¢ÚÐ
-0ÐÐ	
­£ÚÐ
-1ÐÐ	
­¤ÚÐ
-2ÐÐ	
­¥ÚÐ
-3ÐÐ	
­¦ÚÐ
-4ÐÐ	
­§ÚÐ
-5ÐÐ	
­¨ÚÐ
-6ÐÐ	
­³ÚÐ
-7ÐÐ	
­¶ÚÐ
-8ÐÐ	
­·ÚÐ
-9ÐÐ	
­´ÚÐ
-:ÐÐ	
­©ÚÐ
-(ÐÐ	
­ªÚÐ
-;ÐÐ	
­ ÚÐ
-<ÐÐ	
­uÚÐ
-7ÐÐ	
­vÚÐ
-=ÐÐ	
­wÚÐ
->ÐÐ	
­xÚÐ
-?ÐÐ	
­yÚÐ
-@ÐÐ	
­zÚÐ
-AÐÐ	
­{ÚÐ
-BÐÐ	
­|ÚÐ
-ÐÐ	
­}ÚÐ
-CÐÐ	
­~ÚÐ
-DÐÐ	
­‹ÚÐ
-?ÐÐ	
­€ÚÐ
-EÐÐ	
­ÚÐ
-FÐÐ	
­‚ÚÐ
-GÐÐ	
­hÚÐ
-BÐÐ	
­’ÚÐ
-7ÐÐ	
­ŠÚÐ
-HÐÐ	
­jÚÐ
-ÐÐ	
­¸ÚÐ
-IÐÐ	
­¹ÚÐ
-JÐÐ	
­ºÚÐ
-KÐÐ	
­»ÚÐ
-LÐÐ	
­¼ÚÐ
-MÐÐ	
­½ÚÐ
-NÐÐ	
­¾ÚÐ
-OÐÐ	
­¿ÚÐ
-PÐÐ	
­?ÚÐ
-ÐÐ	
­@ÚÐ
-QÐÐ	
­«ÚÐ
-RÐÐ	
­IÚÐ
-SÐÐ	
­fÚÐ
-TÐÐ	
­KÚÐ
-UÐÐ	
­LÚÐ
-SÐÐ	
­MÚÐ
-VÐÐ	
­NÚÐ
-WÐÐ	
­OÚÐ
-SÐÐ	
­PÚÐ
-XÐÐ	
­QÚÐ
-YÐÐ	
­RÚÐ
-SÐÐ	
­SÚÐ
-ZÐÐ	
­TÚÐ
-[ÐÐ	
­UÚÐ
-SÐÐ	
­VÚÐ
-\ÐÐ	
­WÚÐ
-]ÐÐ	
­XÚÐ
-SÐÐ	
­YÚÐ
-TÐÐ	
­ZÚÐ
-^ÐÐ	
­[ÚÐ
-_ÐÐ	
­ÚÐ
-PÐ`a
Ð
EÐÐ	
­ÚÐ
-bÐÐ	
­žÚÐ
-cÐÐ	
­ÚÐ
-dÐÐ	
­ÚÐ
-eÐÐ	
­‘ÚÐ
-fÐÐ	
­\ÚÐ
-gÐÐ	
­–ÚÐ
-hÐÐ	
­—ÚÐ
-iÐÐ	
­˜ÚÐ
-jÐÐ	
­™ÚÐ
-kÐÐ	
­•ÚÐ
-g