The hunt is not successful (1 FAIL:), but the tcl code is being
gradually simplified and more diagnostics emitted to help find the
culprit.
set script " \
probe [build_probe $func $callee $return_p $call_p] { \
printf(\"caller %s callee %s\\n\", $caller, ppfunc()) \
- } \
- "
+ }"
# Build the expect regex: callee1caller1|callee2caller2|...
set n 0
}
# Spawn stap
- eval spawn stap -we {$script} -c "./$test"
+ spawn stap -e "$script" -c "./$test ; true"
expect {
-timeout 30
-re "$regexp" {
"
# Spawn stap
- eval spawn stap -we {$script} -c "./$subtest"
+ spawn stap -e "$script" -c "./$subtest ; true"
set failed 1
expect {
-timeout 30