# HG changeset patch # User Heiko Schlittermann # Date 1446743849 -3600 # Node ID 4a0f2bfdc733713e36709524f65032411903906a # Parent 052fb1053b2a7ab7ce16e08a02fa6b38dfecac6b Add pod2usage 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