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

Download this file

124 lines (124 with data), 16.3 kB 

Gx_ln?!0┘jЭoм35&уy-╞tESystem.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 THEN▌        StringToPrint := CONCAT(STR1 := '| Test suite $'%s$' with ID=',┬                                STR2 := UINT_TO_STRING(CfUnitTestResults.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 := CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].Name);b        (* Print number of tests in test suite *)`        StringToPrint := CONCAT(STR1 := '| ID=',z                                STR2 := ' number of tests=');▓                                STR2 := UINT_TO_STRING(CfUnitTestResults.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(CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].NumberOfFailedTests));#        $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) *)/√            IF CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestIsFailed THEN0╦                StringToPrint := CONCAT(STR1 := '| Test status=', STR2 := TEST_STATUS_FAIL);1·            ELSIF CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestIsSkipped THEN2╦                StringToPrint := CONCAT(STR1 := '| Test status=', STR2 := TEST_STATUS_SKIP);3             ELSE4╦                StringToPrint := CONCAT(STR1 := '| Test status=', STR2 := TEST_STATUS_PASS);5			END_IF6p                             MsgFmtStr := StringToPrint,7V                             StrArg := '');8            9~            (* 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',=л                                 StrArg := CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureMessage);>$            END_IF?x            (* Print assertion/failure type (if existing) *)@ь            IF CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureType <> E_AssertionType.Type_UNDEFINED THENA▄                                 MsgFmtStr := '| Test assert type=%s',Bі                                 StrArg := F_AssertionTypeToString(AssertionType :=CЄ                                 CfUnitTestResults.TestSuiteResults[PrintingTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].FailureType));D        END_FORE╟        IF PrintingTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites THENFZ            PrintedTestSuitesResults := TRUE;G        ELSEH·            PrintingTestSuiteResultNumber := PrintingTestSuiteResultNumber + 1;I        END_IFJ─        PrintingTestSuiteTrigger(CLK := FALSE); // Reset triggerK    END_IFLEND_IFM─(* Log end results once all test suites have finished running *)NД//IF PrintingTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites AND NOT PrintedFinalTestResults THENO╬IF PrintingTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites AND NOT PrintedFinalTestResults AND TestResults.GetAreTestResultsAvailable() THEN  P     WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),QT                        MsgFmtStr := '%s',Rє                        StrArg := '| ==========TESTS FINISHED RUNNING==========');Sr                        MsgFmtStr := '| Test suites: %s',T╟                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfTestSuites));Uf                        MsgFmtStr := '| Tests: %s',V╝                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfTestCases));W|                        MsgFmtStr := '| Successful tests: %s',Xб                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfSuccessfulTestCases));Yt                        MsgFmtStr := '| Failed tests: %s',Z╨                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfFailedTestCases));[≤                        StrArg := '| ====================================');\H    PrintedFinalTestResults := TRUE;]Interface^L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}_BMETHOD PUBLIC LogTestSuiteResults`VARar    CfUnitTestResults : REFERENCE TO ST_TestSuiteResults;bB    StringToPrint : T_MaxString; c╡    TestsInTestSuiteCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestsForEachTestSuite);dEND_VAReVAR CONSTANTfP    TEST_STATUS_SKIP : STRING := 'SKIP';gP    TEST_STATUS_PASS : STRING := 'PASS';hP    TEST_STATUS_FAIL : STRING := 'FAIL';пппEnпп	
ґ■зп-
пп	
ґ⌠зп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґ	зп-пп	
ґ
зп-пп	
ґзп-пп	
ґзп-пп	
ґ
зп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп- пп	
ґ зп-пп	
ґ!зп-пп	
ґ"зп-пп	
ґ#зп-!пп	
ґ$зп-пп	
ґ%зп-"пп	
ґ&зп-пп	
ґ'зп-пп	
ґ(зп-пп	
ґ6зп-#пп	
ґkзп-$пп	
ґlзп-%пп	
ґ┐зп-&пп	
ґ└зп-'пп	
ґ┘зп-(пп	
ґ├зп-)пп	
ґ┤зп-*пп	
ґ┬зп-'пп	
ґ┴зп-+пп	
ґtзп-,пп	
ґ÷зп--пп	
ґ║зп-.пп	
ґ╒зп-/пп	
ґёзп-0пп	
ґєзп-1пп	
ґ╔зп-2пп	
ґізп-3пп	
ґїзп-4пп	
ґ╗зп-5пп	
ґ╘зп-'пп	
ґ╙зп-6пп	
ґ═зп-7пп	
ґuзп-8пп	
ґvзп-9пп	
ґwзп-:пп	
ґxзп-;пп	
ґyзп-<пп	
ґzзп-=пп	
ґ{зп->пп	
ґ|зп-пп	
ґ}зп-?пп	
ґ~зп-@пп	
ґ▀зп-;пп	
ґ─зп-Aпп	
ґ│зп-Bпп	
ґ┌зп-Cпп	
ґhзп->пп	
ґ▓зп-8пп	
ґ┼зп-Dпп	
ґjзп-пп	
ґ7зп-Eпп	
ґ8зп-Fпп	
ґ9зп-Gпп	
ґ:зп-Hпп	
ґ;зп-Iпп	
ґ<зп-Jпп	
ґ=зп-Kпп	
ґ>зп-Lпп	
ґ?зп-пп	
ґ@зп-Mпп	
ґAзп-Nпп	
ґ╚зп-Oпп	
ґIзп-Pпп	
ґfзп-Qпп	
ґKзп-Rпп	
ґLзп-Pпп	
ґMзп-Sпп	
ґNзп-Tпп	
ґOзп-Pпп	
ґPзп-Uпп	
ґQзп-Vпп	
ґRзп-Pпп	
ґSзп-Wпп	
ґTзп-Xпп	
ґUзп-Pпп	
ґVзп-Yпп	
ґWзп-Zпп	
ґXзп-Pпп	
ґYзп-Qпп	
ґZзп-[пп	
ґ[зп-\пп	
ґзп-Lп]^пEпп	
ґзп-_пп	
ґ·зп-`пп	
ґ▐зп-aпп	
ґ░зп-bпп	
ґ▒зп-cпп	
ґ\зп-dпп	
ґ√зп-eпп	
ґ≈зп-fпп	
ґ≤зп-gпп	
ґ≥зп-hпп	
ґ∙зп-d