28 lines
611 B
Plaintext
28 lines
611 B
Plaintext
# Set default expect fallback routines
|
|
expect_after {
|
|
eof {
|
|
if {[info exists test]} {
|
|
fail "$test at eof"
|
|
} elseif {[info level] > 0} {
|
|
fail "[info level 1] at eof"
|
|
} else {
|
|
fail "eof"
|
|
}
|
|
}
|
|
timeout {
|
|
if {[info exists test]} {
|
|
fail "$test at timeout"
|
|
} elseif {[info level] > 0} {
|
|
fail "[info level 1] at timeout"
|
|
} else {
|
|
fail "timeout"
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
# Call tool_start(), if available
|
|
if { [info procs "${tool}_start"] != "" } {
|
|
${tool}_start
|
|
}
|