719 |
set error $errorInfo |
set error $errorInfo |
720 |
} |
} |
721 |
global expect_out |
global expect_out |
722 |
set l_input0_output1 { 0, 0 } |
set rio { "" "" } |
723 |
if { [catch { set l_input0_output1 [split $expect_out(buffer) "\n"] } result]} { |
if { [catch { set rio [split $expect_out(buffer) "\n"] } result]} { |
724 |
puts stderr "Warning: no input or ouput for test $message!" |
#do nothing - leave as { "" "" } |
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 " <input>[string trimright [lindex $l_input0_output1 0]]</input>" |
xml_output " <input>[string trimright [lindex $rio 0]]</input>" |
731 |
xml_output " <output>[string trimright [lindex $l_input0_output1 1]]</output>" |
xml_output " <output>[string trimright [lindex $rio 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>" |