2010-06-18 17:21:38 +02:00
|
|
|
# Set default expect fallback routines
|
2009-06-09 22:49:53 +02:00
|
|
|
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"
|
2010-06-18 17:21:38 +02:00
|
|
|
}
|
|
|
|
}
|
2009-06-15 23:17:39 +02:00
|
|
|
timeout {
|
|
|
|
if {[info exists test]} {
|
|
|
|
fail "$test at timeout"
|
|
|
|
} else {
|
|
|
|
fail "[info level 1] at timeout"
|
2010-06-18 17:21:38 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2009-06-09 22:49:53 +02:00
|
|
|
|
|
|
|
|
2010-06-18 17:21:38 +02:00
|
|
|
# Call tool_start(), if available
|
2009-06-09 22:49:53 +02:00
|
|
|
if { [info procs "${tool}_start"] != "" } {
|
|
|
|
${tool}_start
|
2010-06-18 17:21:38 +02:00
|
|
|
}
|