/[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.12 by bje, Sat Aug 16 13:08:57 2003 UTC revision 1.13 by bje, Tue Aug 19 00:11:43 2003 UTC
# Line 76  proc open_logs { } { Line 76  proc open_logs { } {
76      catch "exec rm -f $outdir/$tool.sum"      catch "exec rm -f $outdir/$tool.sum"
77      set sum_file [open "$outdir/$tool.sum" w]      set sum_file [open "$outdir/$tool.sum" w]
78      if { $xml } {      if { $xml } {
79         catch "exec rm -f $outdir/$tool.xml"          catch "exec rm -f $outdir/$tool.xml"
80         set xml_file [open "$outdir/$tool.xml" w]          set xml_file [open "$outdir/$tool.xml" w]
81          xml_output "<?xml version=\"1.0\"?>"          xml_output "<?xml version=\"1.0\"?>"
82          insertdtd          insertdtd
83          xml_output "<testsuite>"          xml_output "<testsuite>"
# Line 379  proc log_and_exit {} { Line 379  proc log_and_exit {} {
379  proc xml_output { message } {  proc xml_output { message } {
380      global xml_file      global xml_file
381      if { $xml_file != "" } {      if { $xml_file != "" } {
382         puts $xml_file "$message"          puts $xml_file "$message"
383      }      }
384  }  }
385    
# Line 726  proc record_test { type message args } { Line 726  proc record_test { type message args } {
726          global expect_out          global expect_out
727          set rio { "" "" }          set rio { "" "" }
728          if { [catch { set rio [split $expect_out(buffer) "\n"] } result]} {          if { [catch { set rio [split $expect_out(buffer) "\n"] } result]} {
729                  #do nothing - leave as { "" "" }              #do nothing - leave as { "" "" }
730          }          }
731                    
732          set output ""          set output ""
# Line 740  proc record_test { type message args } { Line 740  proc record_test { type message args } {
740          xml_output "  </test>"          xml_output "  </test>"
741      }      }
742    
743     switch $type {      switch $type {
744          PASS {          PASS {
745              if $prms_id {              if $prms_id {
746                  set message [concat $message "\t(PRMS $prms_id)"]                  set message [concat $message "\t(PRMS $prms_id)"]

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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