/[dejagnu]/dejagnu/lib/framework.exp
ViewVC logotype

Diff of /dejagnu/lib/framework.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by bemis, Wed Nov 13 18:16:53 2002 UTC revision 1.8 by bemis, Thu Nov 21 19:24:06 2002 UTC
# Line 719  proc record_test { type message args } { Line 719  proc record_test { type message args } {
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>"

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26