[r324]: / trunk / Library / POUs / FB_JUnitXmlPublisher / LogTestSuiteResults / svnobj  Maximize  Restore  History

Download this file

84 lines (84 with data), 9.8 kB

Gx_lj&!0…jüo‰”Ր³¹`ÿK¤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
pCfUnitTestResults REF=TestResults.GetTestSuiteResults();¦// Only publish once if "EnablePublish" is enabled and all test results are stored.ÔPublishTrigger(CLK := (TestResults.GetAreTestResultsAvailable() AND GVL_Param_XmlControl.EnablePublish) );0IF PublishTrigger.Q THEN          `    (* <?xml version="1.0" encoding="UTF-8"?> *)     Xml.writeDocumentHeader(Header := '<?xml version="1.0" encoding="UTF-8"?>');    ,    (* <testsuites> *):    xml.NewTag('testsuites');¸    Xml.NewParameter('failures', UINT_TO_STRING(CfUnitTestResults.NumberOfFailedTestCases));º    Xml.NewParameter('tests', UINT_TO_STRING(CfUnitTestResults.NumberOfSuccessfulTestCases));    FOR CurSuiteNr := 1 TO CfUnitTestResults.NumberOfTestSuites BY 1 DO 2        (* <testsuite> *)@        xml.NewTag('testsuite');î        Xml.NewParameter('errors', UINT_TO_STRING(CfUnitTestResults.TestSuiteResults[CurSuiteNr].NumberOfFailedTests));Ô        Xml.NewParameter('id', UINT_TO_STRING(CfUnitTestResults.TestSuiteResults[CurSuiteNr].Identity));  ¬        Xml.NewParameter('name', CfUnitTestResults.TestSuiteResults[CurSuiteNr].Name); à        Xml.NewParameter('tests', UINT_TO_STRING(CfUnitTestResults.TestSuiteResults[CurSuiteNr].NumberOfTests));!.                       "Æ        FOR CurTestCnt := 1 TO CfUnitTestResults.TestSuiteResults[CurSuiteNr].NumberOfTests BY 1 DO#8            (* <testcase> *)$F            Xml.NewTag('testcase');%ˆ            Xml.NewParameter('classname', CfUnitTestResults.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].TestClassName);&ô            Xml.NewParameter('name', CfUnitTestResults.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].TestName);'           (f            (* determine testcase fail or succes *))š            IF CfUnitTestResults.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].FailureType <> E_AssertionType.Type_UNDEFINED THEN *n                (* in case of fail *)                  +L                Xml.NewTag('failure');,¶                Xml.NewParameter('type', F_AssertionTypeToString(CfUnitTestResults.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].FailureType) );-ˆ                Xml.NewTagData(CfUnitTestResults.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].FailureMessage );         .L                (* close failure tag*)/>                Xml.CloseTag();0             ELSE1F            (* In case of succes *)2>            Xml.NewTagData('');3            4$            END_IF5X            (* close testcase tag*)         66            Xml.CloseTag();7        END_FOR8B        (* close testsuite tag *)9:        //Xml.NewTagData('');:.        Xml.CloseTag();;        <    END_FOR    =4    (* Close testsuites *)>&    Xml.CloseTag();?N    (* Open, save and close the file *)@*    OpenWriteClose();AF    (* clear the internal buffer *)B,    Xml.ClearBuffer();Cš    WRITE_DEVICE_LOG(msgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),DN                     msgFmtStr := '%s',E                      strArg := '| ==========EXPORTING XML RESULTS==========='); Fj                     msgFmtStr :=  '| Location: %s ',G|                     strArg := GVL_Param_XmlControl.FilePath);Hš    WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),IN                     MsgFmtStr := '%s',J”                     StrArg := '| ===================================='); KEND_IFLInterfaceML{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}N(*O°    This method is responsible for the entire generation of the testresults.xml output. Pf    The output of the xml writer is NOT beautified.Q*)RBMETHOD PUBLIC LogTestSuiteResultsSVARTr    CfUnitTestResults : REFERENCE TO ST_TestSuiteResults;U*    CurSuiteNr: UINT;V,    CurTestCnt : UINT;WEND_VARÐÐÐEGÐÐ	
­mÚÐ-
ÐÐ	
­nÚÐ-ÐÐ	
­(ÚÐ-ÐÐ	
­)ÚÐ-ÐÐ	
­*ÚÐ-ÐÐ	
­+ÚÐ-ÐÐ	
­,ÚÐ-ÐÐ	
­-ÚÐ-ÐÐ	
­oÚÐ-ÐÐ	
­/ÚÐ-ÐÐ	
­0ÚÐ-ÐÐ	
­1ÚÐ-ÐÐ	
­2ÚÐ-ÐÐ	
­3ÚÐ-ÐÐ	
­4ÚÐ-ÐÐ	
­5ÚÐ-ÐÐ	
­6ÚÐ-ÐÐ	
­7ÚÐ-ÐÐ	
­8ÚÐ-ÐÐ	
­9ÚÐ-ÐÐ	
­:ÚÐ- ÐÐ	
­;ÚÐ-!ÐÐ	
­<ÚÐ-"ÐÐ	
­=ÚÐ-#ÐÐ	
­>ÚÐ-$ÐÐ	
­?ÚÐ-%ÐÐ	
­@ÚÐ-&ÐÐ	
­AÚÐ-'ÐÐ	
­BÚÐ-(ÐÐ	
­CÚÐ-)ÐÐ	
­DÚÐ-*ÐÐ	
­EÚÐ-+ÐÐ	
­FÚÐ-,ÐÐ	
­GÚÐ--ÐÐ	
­HÚÐ-.ÐÐ	
­IÚÐ-/ÐÐ	
­JÚÐ-0ÐÐ	
­KÚÐ-1ÐÐ	
­LÚÐ-2ÐÐ	
­MÚÐ-3ÐÐ	
­NÚÐ-4ÐÐ	
­OÚÐ-5ÐÐ	
­PÚÐ-6ÐÐ	
­QÚÐ-3ÐÐ	
­RÚÐ-7ÐÐ	
­SÚÐ-8ÐÐ	
­TÚÐ-9ÐÐ	
­UÚÐ-:ÐÐ	
­VÚÐ-;ÐÐ	
­WÚÐ-<ÐÐ	
­XÚÐ-=ÐÐ	
­YÚÐ->ÐÐ	
­ZÚÐ-ÐÐ	
­[ÚÐ-?ÐÐ	
­\ÚÐ-@ÐÐ	
­]ÚÐ-ÐÐ	
­^ÚÐ-AÐÐ	
­_ÚÐ-BÐÐ	
­`ÚÐ-ÐÐ	
­aÚÐ-CÐÐ	
­bÚÐ-DÐÐ	
­cÚÐ-EÐÐ	
­dÚÐ-ÐÐ	
­eÚÐ-CÐÐ	
­fÚÐ-FÐÐ	
­gÚÐ-GÐÐ	
­hÚÐ-ÐÐ	
­iÚÐ-HÐÐ	
­jÚÐ-IÐÐ	
­kÚÐ-JÐÐ	
­\ÚÐ-KÐLMÐE
ÐÐ	
­ÖÚÐ-NÐÐ	
­×ÚÐ-OÐÐ	
­ØÚÐ-PÐÐ	
­ÙÚÐ-QÐÐ	
­ÚÚÐ-RÐÐ	
­ÞÚÐ-SÐÐ	
­lÚÐ-TÐÐ	
­àÚÐ-UÐÐ	
­áÚÐ-VÐÐ	
­FÚÐ-W