48 |
xml_output "<!DOCTYPE testsuite \[ |
xml_output "<!DOCTYPE testsuite \[ |
49 |
<!-- testsuite.dtd --> |
<!-- testsuite.dtd --> |
50 |
<!ELEMENT testsuite (test | summary)+> |
<!ELEMENT testsuite (test | summary)+> |
51 |
<!ELEMENT test (log, result, name, prms_id )> |
<!ELEMENT test (input, output, result, name, prms_id )> |
52 |
<!ELEMENT log (#PCDATA)> |
<!ELEMENT input (#PCDATA)> |
53 |
|
<!ELEMENT output (#PCDATA)> |
54 |
<!ELEMENT result (#PCDATA)> |
<!ELEMENT result (#PCDATA)> |
55 |
<!ELEMENT name (#PCDATA)> |
<!ELEMENT name (#PCDATA)> |
56 |
<!ELEMENT prms_id (#PCDATA)> |
<!ELEMENT prms_id (#PCDATA)> |
57 |
<!ELEMENT summary (result, description, total)> |
<!ELEMENT summary (result, description, total)> |
58 |
<!ELEMENT description (#PCDATA)> |
<!ELEMENT description (#PCDATA)> |
59 |
<!ELEMENT total (#PCDATA)> |
<!ELEMENT total (#PCDATA)> |
60 |
\]>" |
\]>" |
718 |
if [info exists errorInfo] { |
if [info exists errorInfo] { |
719 |
set error $errorInfo |
set error $errorInfo |
720 |
} |
} |
721 |
global expect_out |
global expect_out |
722 |
|
set l_input0_output1 { 0, 0 } |
723 |
|
if { [catch { set l_input0_output1 [split $expect_out(buffer) "\n"] } result]} { |
724 |
|
puts stderr "Warning: no input or ouput for test $message!" |
725 |
|
} |
726 |
|
|
727 |
set output "" |
set output "" |
728 |
set output "expect_out(buffer)" |
set output "expect_out(buffer)" |
729 |
xml_output " <test>" |
xml_output " <test>" |
730 |
xml_output " <log>$output</log>" |
xml_output " <input>[string trimright [lindex $l_input0_output1 0]]</input>" |
731 |
|
xml_output " <output>[string trimright [lindex $l_input0_output1 1]]</output>" |
732 |
xml_output " <result>$type</result>" |
xml_output " <result>$type</result>" |
733 |
xml_output " <name>$message</name>" |
xml_output " <name>$message</name>" |
734 |
xml_output " <prms_id>$prms_id</prms_id>" |
xml_output " <prms_id>$prms_id</prms_id>" |