diff -r 052fb1053b2a -r 4a0f2bfdc733 scripts/report --- a/scripts/report Thu Nov 05 18:15:14 2015 +0100 +++ b/scripts/report Thu Nov 05 18:17:29 2015 +0100 @@ -4,19 +4,21 @@ use warnings; use File::Find; use List::Util qw(max); +use Pod::Usage; -my %fail; +pod2usage() if not @ARGV; my @files = do { my @r; find(sub { -f and /^log\./ or return; push @r, $File::Find::name; - }, @ARGV ? @ARGV : glob("out*")); + }, @ARGV); @r; }; +my %fail; foreach my $file (@files) { my ($name, $platform) = $file =~ /out-?(.*?)\/log\.(.*)/; my ($os) = $platform =~ /(^.*?)-/; @@ -62,3 +64,19 @@ } } +__END__ + +=head1 NAME + + report - report differences of two or more exim testsuite runs + +=head1 SYNOPSIS + + report DIR... + +=head1 DESCRIPTION + +B shows the differences between to Exim testsuite runs. That is, +it compares the list of failed tests. + +=cut