indicate successful tests. We're really only interested in the bad news
in this output :)
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@13901
91177308-0d34-0410-b5e6-
96231b3b80d8
if (!$NOCHECKOUT) {
if (-d $BuildDir) {
if (!$NOREMOVE) {
- rmdir $BuildDir or die "Could not remove CVS checkout directory $BuildDir!";
+ system "rm -rf $BuildDir";
} else {
die "CVS checkout directory $BuildDir already exists!";
}
my $firstline;
$/ = "\n"; #Make sure we're going line at a time.
if (open SRCHFILE, $filename) {
+ # Skip stuff before ---TEST RESULTS
while ( <SRCHFILE> ) {
if ( m/^--- TEST RESULTS/ ) {
push(@lines, $_); last;
}
}
+ # Process test results
while ( <SRCHFILE> ) {
if ( length($_) > 1 ) {
- if ( ! m/^gmake:/ && ! m/^ qmtest.target:/ && !/^ local/ ) {
+ if ( ! m/: PASS[ ]*$/ &&
+ ! m/^ qmtest.target:/ &&
+ ! m/^ local/ &&
+ ! m/^gmake:/ ) {
push(@lines,$_);
}
}