blob: d1c04e71d839439d95dad61108866817540003df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Set default expect fallback routines
expect_after {
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
|