aboutsummaryrefslogtreecommitdiff
path: root/lib/framework.exp
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2006-05-23 02:43:22 +0000
committerBen Elliston <bje@gnu.org>2006-05-23 02:43:22 +0000
commit7f62e93865c3061a754313c8cb8137c8389c0ce8 (patch)
tree217c51fca973e4cf05a32b88fb45bd60836dc82b /lib/framework.exp
parent459573046abde19dc73ec156a739490208af8e81 (diff)
downloaddejagnu-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.exp28
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