/[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.6 by rsavoye, Sat Aug 31 05:46:16 2002 UTC revision 1.7 by bemis, Wed Nov 13 18:16:53 2002 UTC
# Line 48  proc insertdtd { } { Line 48  proc insertdtd { } {
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  \]>"  \]>"
# Line 717  proc record_test { type message args } { Line 718  proc record_test { type message args } {
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>"

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

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