This makes the output from tests/run-all better.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
switch -glob -- $testfile {
tests/*.at {
switch -glob -- $testfile {
tests/*.at {
- regsub {^tests/} $testfile {tests/tmp/} tt
- regsub {\.at$} $tt {} tt
+ regsub {^tests/} $testfile {} id
+ regsub {\.at$} $id {} id
+ set tt "tests/tmp/$id"
+ set id "\[[info pid]\]"
set tt tests/tmp/[info pid]
}
}
set tt tests/tmp/[info pid]
}
}
proc timeout-abort {} {
send_log "\r\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
proc timeout-abort {} {
send_log "\r\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
- error "aborting due to timeout"
+ error "$id: aborting due to timeout"
}
set timeout 10
proc elog {args} {
}
set timeout 10
proc elog {args} {
set m "[list expect [lindex $args end]]"
set m "[list expect [lindex $args end]]"
# send_log "\n$m\n"
eval expect $args
}
# send_log "\n$m\n"
eval expect $args
}