19 %MACRO _reportCreateTagset;
22 define tagset tagsets.JUnit_XML;
27 put
'<?xml version="1.0" encoding="ISO-8859-1" ?>' NL;
28 put
'<testsuites>' NL;
30 trigger handleOpenTestsuite;
31 put
'</testsuites>' NL;
36 trigger printScenario /
if cmp($myRow[
"isScenario"],
"1");
37 trigger printTestcase /
if cmp($myRow[
"isScenario"],
"0");
39 UNSET $failuresUnformatted;
44 SET $myRow[NAME] VALUE;
45 SET $failuresUnformatted UNFORMATTEDVALUE /
if cmp(NAME,
"failures");
48 define
event handleOpenTestsuite;
49 DO /
if cmp($hasOpenTestsuite,
"1");
50 put
'</testsuite>' NL;
52 set $hasOpenTestsuite
"0";
56 define
event printScenario;
57 trigger handleOpenTestsuite;
60 put
' tests ="' compress($myRow[
'tests'])
'"' NL;
61 put
' failures ="' compress($myRow[
'failures'])
'"' NL;
62 put
' id ="' $myRow[
'id']
'"' NL;
63 put
' name ="' $myRow[
'name']
'"' NL;
64 put
' package ="' $myRow[
'classname']
'"' NL;
65 put
' time ="' compress($myRow[
'time'])
'"' NL;
66 put
' timestamp ="' $myRow[
'timestamp']
'"' NL;
68 SET $hasOpenTestsuite
"1";
71 define
event printTestcase;
74 put
' classname ="' $myRow[
'classname']
'"' NL;
75 put
' name ="' $myRow[
'name']
'"' NL;
76 put
' time ="' compress($myRow[
'time'])
'"' NL;
77 put
' timestamp ="' $myRow[
'timestamp']
'"' NL;
78 put
' id ="' $myRow[
'id']
'"' NL;
79 DO /
if ^cmp($failuresUnformatted,
"0");
89 define
event printFailure;
92 put
' message ="' $myRow[
'message']
'"' NL;
93 put
' type = "' $myRow[
'type']
'"' NL;
94 PUT
'>' $myRow[
'message']
'</failure>' NL;
100 %MEND _reportCreateTagset;