aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--testsuite/lib/runtest.exp10
1 files changed, 4 insertions, 6 deletions
diff --git a/testsuite/lib/runtest.exp b/testsuite/lib/runtest.exp
index bd20b5a..fa48175 100644
--- a/testsuite/lib/runtest.exp
+++ b/testsuite/lib/runtest.exp
@@ -19,17 +19,17 @@
# This file was written by Rob Savoye <rob@welcomehome.org>.
global RUNTEST
-if ![info exists RUNTEST] then {
+if {![info exists RUNTEST]} then {
set RUNTEST [transform runtest]
}
-if ![info exists EXPECT] {
- set EXPECT [findfile $base_dir/../../expect/expect "$base_dir/../../expect/expect" expect]
+if {![info exists EXPECT]} {
+ set EXPECT [findfile $base_dir/../../expect/expect $base_dir/../../expect/expect expect]
verbose "EXPECT defaulting to $EXPECT" 2
}
global RUNTESTFLAGS
-if ![info exists RUNTESTFLAGS] then {
+if {![info exists RUNTESTFLAGS]} then {
set RUNTESTFLAGS "-v -v -a"
}
@@ -72,6 +72,4 @@ proc runtest_start { } {
if {[which $RUNTEST] != 0} then {
perror "Can't find $RUNTEST"
}
-
- # return [open [concat "$RUNTEST $RUNTESTFLAGS"] r]
}