24 lines
472 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"
}
}
2009-06-15 23:17:39 +02:00
timeout {
if {[info exists test]} {
fail "$test at timeout"
} else {
fail "[info level 1] at timeout"
}
}
}
# Call tool_start(), if available
if { [info procs "${tool}_start"] != "" } {
${tool}_start
}