24 lines
534 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"
} else {
fail "[info level 1] at eof"
}; # if
}; # eof
timeout {
if {[info exists test]} {
fail "$test at timeout"
} else {
fail "[info level 1] at timeout"
}; # if
}; # timeout
}; # expect_after()
# Call tool_start(), if available
if { [info procs "${tool}_start"] != "" } {
${tool}_start
}; # if