[r304]: / trunk / Library / POUs / FB_CdsTestResultLogger / LogTestSuiteResults / svnobj  Maximize  Restore  History

Download this file

106 lines (106 with data), 13.4 kB

Gx_l=4!0…jüoL*
Þ{¯É	C‘dASystem.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.TestSuiteResults[PrintingTestSuiteResultNumber].Identity));l        StringToPrint := CONCAT(STR1 := StringToPrint,z                                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.TestSuiteResults[PrintingTestSuiteResultNumber].Name);b        (* Print number of tests in test suite *)`        StringToPrint := CONCAT(STR1 := '| ID=',z                                STR2 := ' number of tests=');†                                STR2 := UINT_TO_STRING(TestResults.TestSuiteResults[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.TestSuiteResults[PrintingTestSuiteResultNumber].NumberOfFailedTests));"        #n        (* Iterate and print all tests in test suite *)$ú        FOR TestsInTestSuiteCounter := 1 TO TestResults.TestSuiteResults[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.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestName);)N            (* Print test class name *)*ˆ                                MsgFmtStr := '| Test class name=%s',+¼                                StrArg := TestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestClassName);,            -~            (* Print assertion/failure message (if existing) *).®            IF LEN(STR := TestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureMessage) > 0 THEN/²                WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),0’                                 MsgFmtStr := '| Test assert message=%s',1Æ                                    StrArg := TestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureMessage);2$            END_IF3x            (* Print assertion/failure type (if existing) *)4Ì            IF TestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureType <> E_AssertionType.Type_UNDEFINED THEN5Œ                                 MsgFmtStr := '| Test assert type=%s',6¦                                 StrArg := F_AssertionTypeToString(AssertionType :=7®                                    TestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureType));8        END_FOR9°        IF PrintingTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites THEN:Z            PrintedTestSuitesResults := TRUE;;        ELSE<ž            PrintingTestSuiteResultNumber := PrintingTestSuiteResultNumber + 1;=        END_IF>€        PrintingTestSuiteTrigger(CLK := FALSE); // Reset trigger?    END_IF@END_IFA€(* Log end results once all test suites have finished running *)BæIF PrintingTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites AND NOT PrintedFinalTestResults THEN   Cš    WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),DT                        MsgFmtStr := '%s',E¤                        StrArg := '| ==========TESTS FINISHED RUNNING==========');Fr                        MsgFmtStr := '| Test suites: %s',G¤                        StrArg := UINT_TO_STRING(TestResults.NumberOfTestSuites));Hf                        MsgFmtStr := '| Tests: %s',I¢                        StrArg := UINT_TO_STRING(TestResults.NumberOfTestCases));J|                        MsgFmtStr := '| Successful tests: %s',K¶                        StrArg := UINT_TO_STRING(TestResults.NumberOfSuccessfulTestCases));Lt                        MsgFmtStr := '| Failed tests: %s',M®                        StrArg := UINT_TO_STRING(TestResults.NumberOfFailedTestCases));Nœ                        StrArg := '| ======================================');OH    PrintedFinalTestResults := TRUE;PInterfaceQL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}RBMETHOD PUBLIC LogTestSuiteResultsSVAR_INPUTTf    TestResults : REFERENCE TO ST_TestSuiteResults;UEND_VARVVARWB    StringToPrint : T_MaxString; X²    TestsInTestSuiteCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestsForEachTestSuite);ÐÐÐE_ÐÐ	
­ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­	ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ ÚÐ-ÐÐ	
­!ÚÐ-ÐÐ	
­"ÚÐ-ÐÐ	
­#ÚÐ- ÐÐ	
­$ÚÐ-ÐÐ	
­%ÚÐ-!ÐÐ	
­&ÚÐ-ÐÐ	
­'ÚÐ-ÐÐ	
­(ÚÐ-ÐÐ	
­6ÚÐ-"ÐÐ	
­kÚÐ-#ÐÐ	
­lÚÐ-$ÐÐ	
­ƒÚÐ-%ÐÐ	
­„ÚÐ-&ÐÐ	
­…ÚÐ-'ÐÐ	
­†ÚÐ-(ÐÐ	
­‡ÚÐ-)ÐÐ	
­ˆÚÐ-&ÐÐ	
­‰ÚÐ-*ÐÐ	
­tÚÐ-+ÐÐ	
­uÚÐ-,ÐÐ	
­vÚÐ--ÐÐ	
­wÚÐ-.ÐÐ	
­xÚÐ-/ÐÐ	
­yÚÐ-0ÐÐ	
­zÚÐ-1ÐÐ	
­{ÚÐ-2ÐÐ	
­|ÚÐ-ÐÐ	
­}ÚÐ-3ÐÐ	
­~ÚÐ-4ÐÐ	
­‹ÚÐ-/ÐÐ	
­€ÚÐ-5ÐÐ	
­ÚÐ-6ÐÐ	
­‚ÚÐ-7ÐÐ	
­hÚÐ-2ÐÐ	
­’ÚÐ-,ÐÐ	
­ŠÚÐ-8ÐÐ	
­jÚÐ-"ÐÐ	
­7ÚÐ-9ÐÐ	
­8ÚÐ-:ÐÐ	
­9ÚÐ-;ÐÐ	
­:ÚÐ-<ÐÐ	
­;ÚÐ-=ÐÐ	
­<ÚÐ->ÐÐ	
­=ÚÐ-?ÐÐ	
­>ÚÐ-@ÐÐ	
­?ÚÐ-ÐÐ	
­@ÚÐ-AÐÐ	
­AÚÐ-BÐÐ	
­IÚÐ-CÐÐ	
­fÚÐ-DÐÐ	
­KÚÐ-EÐÐ	
­LÚÐ-CÐÐ	
­MÚÐ-FÐÐ	
­NÚÐ-GÐÐ	
­OÚÐ-CÐÐ	
­PÚÐ-HÐÐ	
­QÚÐ-IÐÐ	
­RÚÐ-CÐÐ	
­SÚÐ-JÐÐ	
­TÚÐ-KÐÐ	
­UÚÐ-CÐÐ	
­VÚÐ-LÐÐ	
­WÚÐ-MÐÐ	
­XÚÐ-CÐÐ	
­YÚÐ-DÐÐ	
­ZÚÐ-NÐÐ	
­[ÚÐ-OÐÐ	
­ÚÐ-@ÐPQÐEÐÐ	
­ÚÐ-RÐÐ	
­ŒÚÐ-SÐÐ	
­ÚÐ-TÐÐ	
­ŽÚÐ-UÐÐ	
­ÚÐ-VÐÐ	
­ÚÐ-WÐÐ	
­‘ÚÐ-XÐÐ	
­\ÚÐ-U