1 files changed, 0 insertions, 38 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";
-}