diff options
author | Ben Elliston <bje@gnu.org> | 2006-05-23 02:43:22 +0000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2006-05-23 02:43:22 +0000 |
commit | 7f62e93865c3061a754313c8cb8137c8389c0ce8 (patch) | |
tree | 217c51fca973e4cf05a32b88fb45bd60836dc82b /lib/framework.exp | |
parent | 459573046abde19dc73ec156a739490208af8e81 (diff) | |
download | dejagnu-7f62e93865c3061a754313c8cb8137c8389c0ce8.zip dejagnu-7f62e93865c3061a754313c8cb8137c8389c0ce8.tar.gz dejagnu-7f62e93865c3061a754313c8cb8137c8389c0ce8.tar.bz2 |
* config/gdb-comm.exp (gdb_comm_load): Brace some expressions.
* config/i960.exp (i960_spawn): Initialise status.
* config/netware.exp (${board}_init): Brace some if expressions.
* lib/dg.exp (dg-test): Brace some expressions.
* lib/framework.exp (clone_output, log_and_exit, log_summary,
record_test, pass, fail): Likewise.
* lib/libgloss.exp (get_multilibs): Likewise.
* lib/remote.exp (standard_transmit, unix_clean_filename,
remote_load, check_for_board_status, remote_expect): Likewise.
* lib/rsh.exp (rsh_exec): Likewise.
Diffstat (limited to 'lib/framework.exp')
-rw-r--r-- | lib/framework.exp | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lib/framework.exp b/lib/framework.exp index af73723..92d409e 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -295,7 +295,7 @@ proc clone_output { message } { regsub "^\[ \t\]*(\[^ \t\]+).*$" "$message" "\\1" firstword switch "$firstword" { {"PASS:" "XFAIL:" "KFAIL:" "UNRESOLVED:" "UNSUPPORTED:" "UNTESTED:"} { - if $all_flag { + if {$all_flag} { send_user "$message\n" return "$message" } else { @@ -352,7 +352,7 @@ proc log_and_exit {} { close_logs cleanup verbose -log "runtest completed at [timestamp -format %c]" - if $mail_logs { + if {$mail_logs} { mail_file $outdir/$tool.sum $mailing_list "Dejagnu Summary Log" } remote_close host @@ -409,10 +409,10 @@ proc log_summary { args } { if { $testcnt>$totlcnt || $testcnt<$totlcnt } { if { $testcnt > $totlcnt } { - set mismatch "unreported [expr $testcnt-$totlcnt]" + set mismatch "unreported [expr {$testcnt - $totlcnt}]" } if { $testcnt < $totlcnt } { - set mismatch "misreported [expr $totlcnt-$testcnt]" + set mismatch "misreported [expr {$totlcnt - $testcnt}]" } } else { verbose "# of testcases run $testcnt" @@ -714,13 +714,13 @@ proc record_test { type message args } { switch $type { PASS { - if $prms_id { + if {$prms_id} { set message [concat $message "\t(PRMS $prms_id)"] } } FAIL { set exit_status 1 - if $prms_id { + if {$prms_id} { set message [concat $message "\t(PRMS $prms_id)"] } } @@ -753,7 +753,7 @@ proc record_test { type message args } { set message [concat $message "\t(PRMS $kfail_prms)"] } elseif { $xfail_flag && $xfail_prms != 0 } { set message [concat $message "\t(PRMS $xfail_prms)"] - } elseif $prms_id { + } elseif { $prms_id } { set message [concat $message "\t(PRMS $prms_id)"] } } @@ -765,7 +765,7 @@ proc record_test { type message args } { set message [concat $message "\t(PRMS $kfail_prms)"] } elseif { $xfail_flag && $xfail_prms != 0 } { set message [concat $message "\t(PRMS $xfail_prms)"] - } elseif $prms_id { + } elseif { $prms_id } { set message [concat $message "\t(PRMS $prms_id)"] } } @@ -776,7 +776,7 @@ proc record_test { type message args } { set message [concat $message "\t(PRMS $kfail_prms)"] } elseif { $xfail_flag && $xfail_prms != 0 } { set message [concat $message "\t(PRMS $xfail_prms)"] - } elseif $prms_id { + } elseif { $prms_id } { set message [concat $message "\t(PRMS $prms_id)"] } } @@ -787,7 +787,7 @@ proc record_test { type message args } { } } - if $bug_id { + if { $bug_id } { set message [concat $message "\t(BUG $bug_id)"] } @@ -833,9 +833,9 @@ proc pass { message } { unset compiler_conditional_xfail_data } - if $kfail_flag { + if { $kfail_flag } { record_test KPASS $message - } elseif $xfail_flag { + } elseif { $xfail_flag } { record_test XPASS $message } else { record_test PASS $message @@ -855,9 +855,9 @@ proc fail { message } { unset compiler_conditional_xfail_data } - if $kfail_flag { + if { $kfail_flag } { record_test KFAIL $message - } elseif $xfail_flag { + } elseif { $xfail_flag } { record_test XFAIL $message } else { record_test FAIL $message |