diff options
author | hunt <hunt> | 2007-06-20 21:40:29 +0000 |
---|---|---|
committer | hunt <hunt> | 2007-06-20 21:40:29 +0000 |
commit | 6da7f545b60445cfaa6e69896da4ee5a950cd6bb (patch) | |
tree | f9dff03fece8fe64a1bf04a153526561a566736b /testsuite/systemtap.samples/transport-counts | |
parent | c65179207e8f5a06271dfe5519366c42f5b6b152 (diff) | |
download | systemtap-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.
Diffstat (limited to 'testsuite/systemtap.samples/transport-counts')
-rwxr-xr-x | testsuite/systemtap.samples/transport-counts | 38 |
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"; -} |