diff options
Diffstat (limited to 'gdb/testsuite/lib/check-test-names.exp')
| -rw-r--r-- | gdb/testsuite/lib/check-test-names.exp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gdb/testsuite/lib/check-test-names.exp b/gdb/testsuite/lib/check-test-names.exp index 049addd..9921172 100644 --- a/gdb/testsuite/lib/check-test-names.exp +++ b/gdb/testsuite/lib/check-test-names.exp @@ -97,7 +97,7 @@ namespace eval ::CheckTestNames { set pos [string first ": " $message] if { $pos > -1 } { # The '+ 2' is so we skip the ': ' we found above. - return [string range $message [expr $pos + 2] end] + return [string range $message [expr {$pos + 2}] end] } return $message @@ -120,11 +120,11 @@ namespace eval ::CheckTestNames { proc check { message } { set message [ _strip_status $message ] - if [ _check_paths $message ] { + if {[ _check_paths $message ]} { clone_output "PATH: $message" } - if [ _check_duplicates $message ] { + if {[ _check_duplicates $message ]} { clone_output "DUPLICATE: $message" } @@ -146,7 +146,7 @@ namespace eval ::CheckTestNames { # If ARGS is the empty list then we don't want to pass a single # empty string as a parameter here. - eval "CheckTestNames::log_summary $args" + CheckTestNames::log_summary {*}$args if { [llength $args] == 0 } { set which "count" @@ -184,10 +184,10 @@ foreach nm {pass fail xfail kfail xpass kpass unresolved untested \ # Create new global log_summary to replace Dejagnu's. proc log_summary { args } { - eval "CheckTestNames::do_log_summary $args" + CheckTestNames::do_log_summary {*}$args } # Create new global reset_vars to replace Dejagnu's. proc reset_vars {} { - eval "CheckTestNames::do_reset_vars" + CheckTestNames::do_reset_vars } |