chiark / gitweb /
ensure tests avoid user config!
[disorder] / clients / playrtp-log
CommitLineData
345ebe66
RK
1#! /usr/bin/perl -w
2use strict;
3
4our $last;
5my %start = ();
6my %end = ();
7while(<>) {
8 if(/sequence (\d+) timestamp (\w+) length (\w+) end (\w+)/) {
9 my $seq = $1;
10 my $timestamp = hex($2);
11 my $length = hex($3);
12 my $end = hex($4);
13
14 if(defined $last) {
15 if($seq < $last) {
16 print "$seq < $last\n";
17 } elsif($seq != $last + 1) {
18 printf "%u when %u expected, missed %d\n",
19 $seq, $last + 1, $seq - $last;
20 }
21 }
22 if(exists $start{$seq}) {
23 print "$seq: duplicate";
24 }
25 $start{$seq} = $timestamp;
26 $end{$seq} = $end;
27 if(exists $start{$seq-1}) {
28 if($end{$seq-1} != $start{$seq}) {
29 printf "%u ends at %x but %u starts at %x (delta=%d)\n",
30 $seq-1, $end{$seq-1}, $seq, $start{$seq},
31 $start{$seq}-$end{$seq-1};
32 }
33 }
34
35
36 $last = $seq;
37 }
38}