2010-06-18 17:21:38 +02:00
|
|
|
# Set default expect fallback routines
|
2009-06-09 22:49:53 +02:00
|
|
|
expect_after {
|
2009-06-15 23:17:39 +02:00
|
|
|
eof {
|
|
|
|
if {[info exists test]} {
|
|
|
|
fail "$test at eof"
|
2010-10-23 20:49:02 +02:00
|
|
|
} elseif {[info level] > 0} {
|
2009-06-15 23:17:39 +02:00
|
|
|
fail "[info level 1] at eof"
|
2010-10-23 20:49:02 +02:00
|
|
|
} else {
|
|
|
|
fail "eof"
|
|
|
|
}
|
|
|
|
}
|
2009-06-15 23:17:39 +02:00
|
|
|
timeout {
|
|
|
|
if {[info exists test]} {
|
|
|
|
fail "$test at timeout"
|
2010-10-23 20:49:02 +02:00
|
|
|
} elseif {[info level] > 0} {
|
2009-06-15 23:17:39 +02:00
|
|
|
fail "[info level 1] at timeout"
|
2010-10-23 20:49:02 +02:00
|
|
|
} else {
|
|
|
|
fail "timeout"
|
|
|
|
}
|
|
|
|
}
|
2010-06-18 17:21:38 +02:00
|
|
|
}
|