7beb32e209
Creates a file .taps-failed in each O.<arch> directory, appending the name of each tapfile that has failures to it. The testFailures script now reads the .taps-failed files from each directory listed in .tests-failed and nicely displays the failing tests listed in each.
52 lines
1.3 KiB
Perl
52 lines
1.3 KiB
Perl
#!/usr/bin/env perl
|
|
#*************************************************************************
|
|
# EPICS BASE is distributed subject to a Software License Agreement found
|
|
# in the file LICENSE that is included with this distribution.
|
|
#*************************************************************************
|
|
|
|
# This file lets the build system fail a top-level 'make test-results'
|
|
# target with output showing the directories where test failures were
|
|
# reported and the test programs that failed there.
|
|
#
|
|
# The exit status of this program is 1 (failure) if any tests failed,
|
|
# otherwise 0 (success).
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Basename;
|
|
|
|
die "Usage: testFailures.pl /path/to/base/.tests-failed\n"
|
|
unless @ARGV == 1;
|
|
|
|
my $path = shift;
|
|
my $base = dirname($path);
|
|
|
|
open(my $failures, '<', $path) or
|
|
exit 0;
|
|
my @failures = dedup(<$failures>);
|
|
close $failures;
|
|
chomp @failures;
|
|
|
|
exit 0 unless @failures;
|
|
|
|
print "\nTests failed:\n";
|
|
for my $dir (@failures) {
|
|
my $reldir = $dir;
|
|
$reldir =~ s($base/)();
|
|
print " In $reldir:\n";
|
|
open(my $taps, '<', "$dir/.taps-failed") or next;
|
|
my @taps = dedup(<$taps>);
|
|
close $taps;
|
|
chomp @taps;
|
|
print '', (map {" $_\n"} @taps), "\n";
|
|
}
|
|
|
|
exit 1;
|
|
|
|
sub dedup {
|
|
my %dedup;
|
|
$dedup{$_}++ for @_;
|
|
return sort keys %dedup;
|
|
}
|