[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