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>" |
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 |
|
|
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 "" |
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)"] |