22 lines
511 B
Plaintext
Raw Normal View History

# Set default expect fallback routines
expect_after {
2009-06-15 23:17:39 +02:00
eof {
if {[info exists test]} {
fail "$test at eof"
} elseif {[info level] > 0} {
2009-06-15 23:17:39 +02:00
fail "[info level 1] at eof"
} else {
fail "eof"
}
}
2009-06-15 23:17:39 +02:00
timeout {
if {[info exists test]} {
fail "$test at timeout"
} elseif {[info level] > 0} {
2009-06-15 23:17:39 +02:00
fail "[info level 1] at timeout"
} else {
fail "timeout"
}
}
}