summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhunt <hunt>2007-06-20 21:40:29 +0000
committerhunt <hunt>2007-06-20 21:40:29 +0000
commit6da7f545b60445cfaa6e69896da4ee5a950cd6bb (patch)
treef9dff03fece8fe64a1bf04a153526561a566736b
parentc65179207e8f5a06271dfe5519366c42f5b6b152 (diff)
downloadsystemtap-steved-6da7f545b60445cfaa6e69896da4ee5a950cd6bb.tar.gz
systemtap-steved-6da7f545b60445cfaa6e69896da4ee5a950cd6bb.tar.xz
systemtap-steved-6da7f545b60445cfaa6e69896da4ee5a950cd6bb.zip
2007-06-20 Martin Hunt <hunt@redhat.com>
* systemtap.samples/transport*: Removed.
-rwxr-xr-xtestsuite/systemtap.samples/transport-counts38
-rw-r--r--testsuite/systemtap.samples/transport.exp73
-rw-r--r--testsuite/systemtap.samples/transport1.stp32
-rw-r--r--testsuite/systemtap.samples/transport2.stp33
4 files changed, 0 insertions, 176 deletions
diff --git a/testsuite/systemtap.samples/transport-counts b/testsuite/systemtap.samples/transport-counts
deleted file mode 100755
index 87335cb9..00000000
--- a/testsuite/systemtap.samples/transport-counts
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl
-
-# tracks gaps (missing records) and repeats in the transport-testing
-# output. If there aren't any missing records or repeats, it prints
-# "test passed", otherwise "test failed"
-#
-# Usage: transport-counts <output file>
-
-$prev = 0;
-$total_missing = 0;
-$repeats = 0;
-
-open TRACEFILE, $ARGV[0]
- or die "Couldn't open trace file $ARGV[0]";
-
-while (<TRACEFILE>) {
- chomp;
- if (/\[(\d*)/) {
- if ($prev + 1 != $1) {
- $start_missing = $prev + 1;
- $end_missing = $1 - 1;
- if ($start_missing > $end_missing) {
- $repeats++;
- } else {
- $total_missing += $end_missing - $start_missing;
- }
- }
- $prev = $1;
- }
-}
-print "total missing: $total_missing\n";
-print "repeats: $repeats\n";
-print "last event logged: $prev\n";
-if ($total_missing == 0 && $repeats == 0) {
- print "test passed\n";
-} else {
- print "test failed\n";
-}
diff --git a/testsuite/systemtap.samples/transport.exp b/testsuite/systemtap.samples/transport.exp
deleted file mode 100644
index 915452b6..00000000
--- a/testsuite/systemtap.samples/transport.exp
+++ /dev/null
@@ -1,73 +0,0 @@
-set test "transport normal - procfs"
-if {![installtest_p]} { untested $test; return }
-
-spawn stap -o probe.out -DMAXACTION=1000000 $srcdir/$subdir/transport1.stp
-set ok 0
-expect {
- -timeout 150
- timeout { fail "$test (timeout)" }
- eof { spawn $srcdir/$subdir/transport-counts probe.out
- expect {
- -ex {test passed} { incr ok; exp_continue }
- eof { spawn rm probe.out }
- }
- }
-}
-close
-wait
-
-if {$ok >= 1} { pass "$test ($ok)" } { fail "$test ($ok)" }
-
-set test "transport normal - relayfs"
-spawn stap -b -o probe.out -DMAXACTION=1000000 $srcdir/$subdir/transport1.stp
-set ok 0
-expect {
- -timeout 150
- timeout { fail "$test (timeout)" }
- eof { spawn $srcdir/$subdir/transport-counts probe.out
- expect {
- -ex {test passed} { incr ok; exp_continue }
- eof { spawn rm probe.out }
- }
- }
-}
-close
-wait
-
-if {$ok >= 1} { pass "$test ($ok)" } { fail "$test ($ok)" }
-
-set test "transport fill staging buffer - procfs"
-spawn stap -o probe.out -DMAXACTION=1000000 $srcdir/$subdir/transport2.stp
-set ok 0
-expect {
- -timeout 150
- timeout { fail "$test (timeout)" }
- eof { spawn $srcdir/$subdir/transport-counts probe.out
- expect {
- -ex {test passed} { incr ok; exp_continue }
- eof { spawn rm probe.out }
- }
- }
-}
-close
-wait
-
-if {$ok >= 1} { pass "$test ($ok)" } { fail "$test ($ok)" }
-
-set test "transport fill staging buffer - relayfs"
-spawn stap -b -o probe.out -DMAXACTION=1000000 $srcdir/$subdir/transport2.stp
-set ok 0
-expect {
- -timeout 150
- timeout { fail "$test (timeout)" }
- eof { spawn $srcdir/$subdir/transport-counts probe.out
- expect {
- -ex {test passed} { incr ok; exp_continue }
- eof { spawn rm probe.out }
- }
- }
-}
-close
-wait
-
-if {$ok >= 1} { pass "$test ($ok)" } { fail "$test ($ok)" }
diff --git a/testsuite/systemtap.samples/transport1.stp b/testsuite/systemtap.samples/transport1.stp
deleted file mode 100644
index 5e9cfcd0..00000000
--- a/testsuite/systemtap.samples/transport1.stp
+++ /dev/null
@@ -1,32 +0,0 @@
-# This script tests normal logging - it logs a fair amount of data
-# in each probe hit, but not enough to fill up the staging buffers.
-
-global maxcount
-global count
-global n
-
-function write_output()
-{
- for (i = 0; i < n; i++)
- log("[".sprint(count++)."] testing 123, testing, testing. testing 123, testing, testing")
-}
-
-probe timer.jiffies(5)
-{
- write_output();
- if (count >= maxcount)
- exit()
-}
-
-probe begin
-{
- count = 1
- n = 50
- maxcount = 1000
-}
-
-probe end
-{
- log("total records written: ".sprint(count - 1))
- log("records per iteration: ".sprint(n))
-}
diff --git a/testsuite/systemtap.samples/transport2.stp b/testsuite/systemtap.samples/transport2.stp
deleted file mode 100644
index 1de90768..00000000
--- a/testsuite/systemtap.samples/transport2.stp
+++ /dev/null
@@ -1,33 +0,0 @@
-# This script tests normal logging - it logs a larger amount of data
-# in each probe hit, enough to fill up the staging buffers, so it
-# should detect anomalies in flushing the staging buffers.
-
-global maxcount
-global count
-global n
-
-function write_output()
-{
- for (i = 0; i < n; i++)
- log("[".sprint(count++)."] testing 123, testing, testing. testing 123, testing, testing")
-}
-
-probe timer.jiffies(5)
-{
- write_output();
- if (count >= maxcount)
- exit()
-}
-
-probe begin
-{
- count = 1
- n = 500
- maxcount = 10000
-}
-
-probe end
-{
- log("total records written: ".sprint(count - 1))
- log("records per iteration: ".sprint(n))
-}