compiler/src/tools/testcoordinator/passes.pl
2016-06-27 21:02:23 +01:00

17 lines
506 B
Perl
Executable file

#!perl -w
use strict;
use warnings;
use POSIX "strftime";
# Now parse the combined logs extracting build pass messages
# lub32 20.47.55 --- Branch v2docs ubuntu gcc ILP32 confidence tests passed ---
open(my $buildlog, "</tmp/buildall.log") // die "Could not read buildall.log.";
open(my $passes, ">log/buildpasses.log") // die "Could not create buildpasses.log.";
while (<$buildlog>) {
if (/ --- Branch .* confidence tests passed ---/) {
print $passes $_;
}
}
close($buildlog);
close($passes);