1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/systemtap.samples/profile.exp b/testsuite/systemtap.samples/profile.exp
new file mode 100644
index 00000000..39b4587f
--- /dev/null
+++ b/testsuite/systemtap.samples/profile.exp
@@ -0,0 +1,14 @@
+set test "profile"
+if {![installtest_p]} { untested $test; return }
+
+spawn stap $srcdir/$subdir/profile.stp
+set ok 0
+expect {
+    -timeout 30 -re {kernel.function[^\r]*ttime=[0-9]*\r} { incr ok; exp_continue }
+    timeout { fail "$test (timeout)" }
+    eof { }
+}
+#FIXME does not handle case of hanging primes.stp correctly
+wait
+
+if {$ok > 0} { pass "$test ($ok)" } { fail "$test" }