blob: 246499b4b5366a67efea62ae1f6003ea81f302f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# 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"
}
}
}
|