catch {exec gcc -g -o $test $srcdir/$subdir/$test.c} err
if {$err == "" && [file exists $test]} then { pass "$test compile" } else { fail "$test cmpile" }
-set func_script "probe %%( CONFIG_UTRACE == \"y\" %%? process(\"%s\").statement(\"*@%s.c:*\") %%: never %%) {}"
-set script [format $func_script "./$test" "$test"]
-spawn stap -p2 -we $script
-set hint 0
-set probes 0
-set skipped 0
-expect {
+if {![utrace_p]} {
+ untested "$test -p2"
+} else {
+ set func_script "probe process(\"%s\").statement(\"*@%s.c:*\") {}"
+ set script [format $func_script "./$test" "$test"]
+ spawn stap -p2 -we $script
+ set hint 0
+ set probes 0
+ set skipped 0
+ expect {
-timeout 60
-re "# probes" { incr hint; exp_continue }
-re {process\("[^"]+"\)\.statement\("[^"]+"\) /\*} { incr probes; exp_continue }
- -re {never.*} { incr skipped; exp_continue}
timeout { fail "$test (timeout)" }
eof { }
+ }
+ catch { wait }
+ catch { close }
+ if { $hint == 1 && $probes >= 9 } then { pass "$test -p2" } else { fail "$test -p2 ($probes)" }
}
-wait
-if { $skipped == 1 } {
- untested "$test -p2"
-} else {
- if { $hint == 1 && $probes == 7 } then { pass "$test -p2" } else { fail "$test -p2 ($probes)" }
-}
-exec rm -f $test
+#exec rm -f $test