diff options
| author | bemis <bemis> | 2002-11-21 19:24:06 +0000 |
|---|---|---|
| committer | bemis <bemis> | 2002-11-21 19:24:06 +0000 |
| commit | b28272bc3930ec21d35d93bb39f4a16d6d9e3e93 (patch) | |
| tree | 54d7807f491c98e48d369b18f3661a3620c0f0b9 /lib | |
| parent | c30577476d3d11c86fafe300227dcdf4c18a104c (diff) | |
| download | dejagnu-b28272bc3930ec21d35d93bb39f4a16d6d9e3e93.zip dejagnu-b28272bc3930ec21d35d93bb39f4a16d6d9e3e93.tar.gz dejagnu-b28272bc3930ec21d35d93bb39f4a16d6d9e3e93.tar.bz2 | |
modified xml input and output handling for null strings
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/framework.exp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/framework.exp b/lib/framework.exp index 5b245c2..4aaf0ae 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -719,16 +719,16 @@ proc record_test { type message args } { set error $errorInfo } global expect_out - set l_input0_output1 { 0, 0 } - if { [catch { set l_input0_output1 [split $expect_out(buffer) "\n"] } result]} { - puts stderr "Warning: no input or ouput for test $message!" + set rio { "" "" } + if { [catch { set rio [split $expect_out(buffer) "\n"] } result]} { + #do nothing - leave as { "" "" } } set output "" set output "expect_out(buffer)" xml_output " <test>" - xml_output " <input>[string trimright [lindex $l_input0_output1 0]]</input>" - xml_output " <output>[string trimright [lindex $l_input0_output1 1]]</output>" + xml_output " <input>[string trimright [lindex $rio 0]]</input>" + xml_output " <output>[string trimright [lindex $rio 1]]</output>" xml_output " <result>$type</result>" xml_output " <name>$message</name>" xml_output " <prms_id>$prms_id</prms_id>" |