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

Download this file

84 lines (84 with data), 9.6 kB

Gx_lŒ%!0…jüo“tá‡BÑ*“Û±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
¦// Only publish once if "EnablePublish" is enabled and all test results are stored.ÌPublishTrigger(CLK := ( TestResults.GeneralTestResultsStored 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(Results.NumberOfFailedTestCases));¦    Xml.NewParameter('tests', UINT_TO_STRING(Results.NumberOfSuccessfulTestCases));|    FOR CurSuiteNr := 1 TO Results.NumberOfTestSuites BY 1 DO 2        (* <testsuite> *)@        xml.NewTag('testsuite');Ú        Xml.NewParameter('errors', UINT_TO_STRING(Results.TestSuiteResults[CurSuiteNr].NumberOfFailedTests));À        Xml.NewParameter('id', UINT_TO_STRING(Results.TestSuiteResults[CurSuiteNr].Identity));  ˜        Xml.NewParameter('name', Results.TestSuiteResults[CurSuiteNr].Name);Ì        Xml.NewParameter('tests', UINT_TO_STRING(Results.TestSuiteResults[CurSuiteNr].NumberOfTests)); .                       !²        FOR CurTestCnt := 1 TO Results.TestSuiteResults[CurSuiteNr].NumberOfTests BY 1 DO"8            (* <testcase> *)#F            Xml.NewTag('testcase');$ô            Xml.NewParameter('classname', Results.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].TestClassName);%à            Xml.NewParameter('name', Results.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].TestName);&           'f            (* determine testcase fail or succes *)(†            IF Results.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].FailureType <> E_AssertionType.Type_UNDEFINED THEN )n                (* in case of fail *)                  *L                Xml.NewTag('failure');+¢                Xml.NewParameter('type', F_AssertionTypeToString(Results.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].FailureType) );,ô                Xml.NewTagData(Results.TestSuiteResults[CurSuiteNr].TestCaseResults[CurTestCnt].FailureMessage );         -L                (* close failure tag*).>                Xml.CloseTag();/             ELSE0F            (* In case of succes *)1>            Xml.NewTagData('');2$            END_IF3X            (* close testcase tag*)         46            Xml.CloseTag();5        END_FOR6B        (* close testsuite tag *)7:        //Xml.NewTagData('');8.        Xml.CloseTag();9        :    END_FOR    ;4    (* Close testsuites *)<&    Xml.CloseTag();=N    (* Open, save and close the file *)>*    OpenWriteClose();?    @F    (* clear the internal buffer *)A,    Xml.ClearBuffer();Bš    WRITE_DEVICE_LOG(msgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),CN                     msgFmtStr := '%s',D                      strArg := '| ==========EXPORTING XML RESULTS==========='); Ej                     msgFmtStr :=  '| Location: %s ',F|                     strArg := GVL_Param_XmlControl.FilePath);Gš    WRITE_DEVICE_LOG(MsgCtrlMask := UDINT_TO_DWORD(CmpLog.LogClass.LOG_INFO),HN                     MsgFmtStr := '%s',I”                     StrArg := '| ===================================='); JEND_IFKInterfaceLL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}M(*N°    This method is responsible for the entire generation of the testresults.xml output. Of    The output of the xml writer is NOT beautified.P*)QBMETHOD PUBLIC LogTestSuiteResultsRVAR_INPUTSV	TestResults : REFERENCE TO FB_TestResults;TEND_VARUVARVŽ    Results : ST_TestSuiteResults := TestResults.GetTestSuiteResults();W*    CurSuiteNr: UINT;X,    CurTestCnt : UINT;ÐÐÐEEÐÐ	
­(ÚÐ-
ÐÐ	
­)ÚÐ-ÐÐ	
­*ÚÐ-ÐÐ	
­+ÚÐ-ÐÐ	
­,ÚÐ-ÐÐ	
­-ÚÐ-ÐÐ	
­.ÚÐ-ÐÐ	
­/ÚÐ-ÐÐ	
­0ÚÐ-ÐÐ	
­1ÚÐ-ÐÐ	
­2ÚÐ-ÐÐ	
­3ÚÐ-ÐÐ	
­4ÚÐ-ÐÐ	
­5ÚÐ-ÐÐ	
­6ÚÐ-ÐÐ	
­7ÚÐ-ÐÐ	
­8ÚÐ-ÐÐ	
­9ÚÐ-ÐÐ	
­:ÚÐ-ÐÐ	
­;ÚÐ- ÐÐ	
­<ÚÐ-!ÐÐ	
­=ÚÐ-"ÐÐ	
­>ÚÐ-#ÐÐ	
­?ÚÐ-$ÐÐ	
­@ÚÐ-%ÐÐ	
­AÚÐ-&ÐÐ	
­BÚÐ-'ÐÐ	
­CÚÐ-(ÐÐ	
­DÚÐ-)ÐÐ	
­EÚÐ-*ÐÐ	
­FÚÐ-+ÐÐ	
­GÚÐ-,ÐÐ	
­HÚÐ--ÐÐ	
­IÚÐ-.ÐÐ	
­JÚÐ-/ÐÐ	
­KÚÐ-0ÐÐ	
­LÚÐ-1ÐÐ	
­MÚÐ-ÐÐ	
­NÚÐ-2ÐÐ	
­OÚÐ-3ÐÐ	
­PÚÐ-4ÐÐ	
­QÚÐ-ÐÐ	
­RÚÐ-5ÐÐ	
­SÚÐ-6ÐÐ	
­TÚÐ-7ÐÐ	
­UÚÐ-8ÐÐ	
­VÚÐ-9ÐÐ	
­WÚÐ-:ÐÐ	
­XÚÐ-;ÐÐ	
­YÚÐ-<ÐÐ	
­ZÚÐ-ÐÐ	
­[ÚÐ-=ÐÐ	
­\ÚÐ->ÐÐ	
­]ÚÐ-?ÐÐ	
­^ÚÐ-@ÐÐ	
­_ÚÐ-AÐÐ	
­`ÚÐ-?ÐÐ	
­aÚÐ-BÐÐ	
­bÚÐ-CÐÐ	
­cÚÐ-DÐÐ	
­dÚÐ-ÐÐ	
­eÚÐ-BÐÐ	
­fÚÐ-EÐÐ	
­gÚÐ-FÐÐ	
­hÚÐ-ÐÐ	
­iÚÐ-GÐÐ	
­jÚÐ-HÐÐ	
­kÚÐ-IÐÐ	
­\ÚÐ-JÐKLÐE
ÐÐ	
­ÖÚÐ-MÐÐ	
­×ÚÐ-NÐÐ	
­ØÚÐ-OÐÐ	
­ÙÚÐ-PÐÐ	
­ÚÚÐ-QÐÐ	
­ÛÚÐ-RÐÐ	
­ÜÚÐ-SÐÐ	
­ÝÚÐ-TÐÐ	
­ÞÚÐ-UÐÐ	
­ßÚÐ-VÐÐ	
­àÚÐ-WÐÐ	
­áÚÐ-XÐÐ	
­FÚÐ-T