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

Download this file

126 lines (126 with data), 17.2 kB 

Gx_lC!0┘jЭoA7MV╘└ЧЭ╡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==========');V
					Wr                        MsgFmtStr := '| Test suites: %s',X╟                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfTestSuites));Y						Zf                        MsgFmtStr := '| Tests: %s',[╝                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfTestCases));\|                        MsgFmtStr := '| Successful tests: %s',]б                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfSuccessfulTestCases));^t                        MsgFmtStr := '| Failed tests: %s',_╨                        StrArg := UINT_TO_STRING(CfUnitTestResults.NumberOfFailedTestCases));`°                        StrArg := '| ======================================');aH    PrintedFinalTestResults := TRUE;bInterfacecL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}dBMETHOD PUBLIC LogTestSuiteResultseVARfr    CfUnitTestResults : REFERENCE TO ST_TestSuiteResults;gB    StringToPrint : T_MaxString; h╡    TestsInTestSuiteCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestsForEachTestSuite);iEND_VARjVAR CONSTANTkP    TEST_STATUS_SKIP : STRING := 'SKIP';lP    TEST_STATUS_PASS : STRING := 'PASS';mP    TEST_STATUS_FAIL : STRING := 'FAIL';пппEpпп	
ґ■зп-
пп	
ґ⌠зп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґюзп-пп	
ґазп-пп	
ґбзп-пп	
ґцзп-пп	
ґзп-пп	
ґдзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґзп-пп	
ґ╞зп-пп	
ґ╡зп-пп	
ґ╠зп- пп	
ґґзп-пп	
ґ╛зп-!пп	
ґ╝зп-пп	
ґзп-пп	
ґзп-"пп	
ґзп-#пп	
ґ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пп	
ґизп-Vпп	
ґLзп-Sпп	
ґMзп-Wпп	
ґNзп-Xпп	
ґйзп-Yпп	
ґOзп-Sпп	
ґPзп-Zпп	
ґQзп-[пп	
ґкзп-Yпп	
ґRзп-Sпп	
ґSзп-\пп	
ґTзп-]пп	
ґлзп-Yпп	
ґUзп-Sпп	
ґVзп-^пп	
ґWзп-_пп	
ґмзп-Yпп	
ґXзп-Sпп	
ґYзп-Tпп	
ґZзп-`пп	
ґ[зп-aпп	
ґзп-PпbcпEпп	
ґзп-dпп	
ґ·зп-eпп	
ґ▐зп-fпп	
ґ░зп-gпп	
ґ▒зп-hпп	
ґ\зп-iпп	
ґ√зп-jпп	
ґ≈зп-kпп	
ґ≤зп-lпп	
ґ≥зп-mпп	
ґ∙зп-i