diff options
| author | Ben Elliston <bje@gnu.org> | 2003-08-19 00:11:43 +0000 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2003-08-19 00:11:43 +0000 |
| commit | 22b23d35df2026d61cd1fdbd322e13f03d5e09da (patch) | |
| tree | cadca88120f9f904981c2670c25daa2a6d6ec7a5 /lib/framework.exp | |
| parent | d8222ca8b95f85467601faf692ec5e391e407e1d (diff) | |
Re-indent with Emacs' tcl-mode.indent-tcl-mode-after
Diffstat (limited to 'lib/framework.exp')
| -rw-r--r-- | lib/framework.exp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/framework.exp b/lib/framework.exp index 04a4ceb..b82b7e3 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -76,8 +76,8 @@ proc open_logs { } { catch "exec rm -f $outdir/$tool.sum" set sum_file [open "$outdir/$tool.sum" w] if { $xml } { - catch "exec rm -f $outdir/$tool.xml" - set xml_file [open "$outdir/$tool.xml" w] + catch "exec rm -f $outdir/$tool.xml" + set xml_file [open "$outdir/$tool.xml" w] xml_output "<?xml version=\"1.0\"?>" insertdtd xml_output "<testsuite>" @@ -379,7 +379,7 @@ proc log_and_exit {} { proc xml_output { message } { global xml_file if { $xml_file != "" } { - puts $xml_file "$message" + puts $xml_file "$message" } } @@ -726,7 +726,7 @@ proc record_test { type message args } { global expect_out set rio { "" "" } if { [catch { set rio [split $expect_out(buffer) "\n"] } result]} { - #do nothing - leave as { "" "" } + #do nothing - leave as { "" "" } } set output "" @@ -740,7 +740,7 @@ proc record_test { type message args } { xml_output " </test>" } - switch $type { + switch $type { PASS { if $prms_id { set message [concat $message "\t(PRMS $prms_id)"] |