+2009-01-30 Will Cohen <wcohen@redhat.com>
+
+ * systemtap.samples/queue_demo.exp:
+ * systemtap.samples/queue_demo.stp: Remove.
+
2009-01-30 Frank Ch. Eigler <fche@elastic.org>
* semok/twenty.stp: Don't spew so much into systemtap.log.
+++ /dev/null
-set test "queue_demo"
-if {![installtest_p]} { untested $test; return }
-
-spawn stap $srcdir/$subdir/queue_demo.stp
-set ok 0
-expect {
- -timeout 240
- -re {block-[^\r]*} { incr ok; exp_continue }
- timeout { fail "$test (timeout)" }
- eof { }
-}
-
-if {$ok > 4 && $ok < 10} { pass "$test" } { fail "$test" }
+++ /dev/null
-
-probe begin {
- qsq_start ("block-read")
- qsq_start ("block-write")
-}
-
-probe timer.ms(3500), end {
- qsq_print ("block-read")
- qsq_start ("block-read")
- qsq_print ("block-write")
- qsq_start ("block-write")
-}
-
-probe timer.ms(10000) { exit () }
-
-
-# synthesize queue work/service using three randomized "threads" for each queue.
-
-global tc
-function qs_doit (thread, name) {
- n = tc[thread] = (tc[thread]+1) % 3 # per-thread state counter
- if (n==1) qs_wait (name)
- else if (n==2) qs_run (name)
- else if (n==0) qs_done (name)
-}
-
-probe timer.ms(100).randomize(100) { qs_doit (0, "block-read") }
-probe timer.ms(100).randomize(100) { qs_doit (1, "block-read") }
-probe timer.ms(100).randomize(100) { qs_doit (2, "block-read") }
-probe timer.ms(100).randomize(100) { qs_doit (3, "block-write") }
-probe timer.ms(100).randomize(100) { qs_doit (4, "block-write") }
-probe timer.ms(100).randomize(100) { qs_doit (5, "block-write") }