From: hunt <hunt>
Date: Wed, 20 Jun 2007 21:40:29 +0000 (+0000)
Subject: 2007-06-20  Martin Hunt  <hunt@redhat.com>
X-Git-Tag: release-0.5.14~30
X-Git-Url: https://sourceware.org/git/?a=commitdiff_plain;h=6da7f545b60445cfaa6e69896da4ee5a950cd6bb;p=systemtap.git

2007-06-20  Martin Hunt  <hunt@redhat.com>

	* systemtap.samples/transport*: Removed.
---

diff --git a/testsuite/systemtap.samples/transport-counts b/testsuite/systemtap.samples/transport-counts
deleted file mode 100755
index 87335cb92..000000000
--- 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 915452b6d..000000000
--- 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 5e9cfcd0a..000000000
--- 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 1de90768c..000000000
--- 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))
-}