summaryrefslogtreecommitdiff
path: root/test/config/default.exp
diff options
context:
space:
mode:
Diffstat (limited to 'test/config/default.exp')
-rw-r--r--test/config/default.exp26
1 files changed, 12 insertions, 14 deletions
diff --git a/test/config/default.exp b/test/config/default.exp
index d1c04e71..1eb47a2c 100644
--- a/test/config/default.exp
+++ b/test/config/default.exp
@@ -1,23 +1,21 @@
- # Set default expect fallback routines
+# Set default expect fallback routines
expect_after {
eof {
if {[info exists test]} {
fail "$test at eof"
- } else {
+ } elseif {[info level] > 0} {
fail "[info level 1] at eof"
- }; # if
- }; # eof
+ } else {
+ fail "eof"
+ }
+ }
timeout {
if {[info exists test]} {
fail "$test at timeout"
- } else {
+ } elseif {[info level] > 0} {
fail "[info level 1] at timeout"
- }; # if
- }; # timeout
-}; # expect_after()
-
-
- # Call tool_start(), if available
-if { [info procs "${tool}_start"] != "" } {
- ${tool}_start
-}; # if
+ } else {
+ fail "timeout"
+ }
+ }
+}