aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorbemis <bemis>2002-11-21 19:24:06 +0000
committerbemis <bemis>2002-11-21 19:24:06 +0000
commitb28272bc3930ec21d35d93bb39f4a16d6d9e3e93 (patch)
tree54d7807f491c98e48d369b18f3661a3620c0f0b9 /lib
parentc30577476d3d11c86fafe300227dcdf4c18a104c (diff)
downloaddejagnu-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.exp10
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>"