Make the Regression/Feature test support excise all ": PASS" lines that

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
This commit is contained in:
Reid Spencer 2004-05-30 00:17:47 +00:00
parent 3c82aa3623
commit 542e859216

View File

@ -180,7 +180,7 @@ if ($VERBOSE) {
if (!$NOCHECKOUT) { if (!$NOCHECKOUT) {
if (-d $BuildDir) { if (-d $BuildDir) {
if (!$NOREMOVE) { if (!$NOREMOVE) {
rmdir $BuildDir or die "Could not remove CVS checkout directory $BuildDir!"; system "rm -rf $BuildDir";
} else { } else {
die "CVS checkout directory $BuildDir already exists!"; die "CVS checkout directory $BuildDir already exists!";
} }
@ -270,14 +270,19 @@ sub GetQMTestResults { # (filename)
my $firstline; my $firstline;
$/ = "\n"; #Make sure we're going line at a time. $/ = "\n"; #Make sure we're going line at a time.
if (open SRCHFILE, $filename) { if (open SRCHFILE, $filename) {
# Skip stuff before ---TEST RESULTS
while ( <SRCHFILE> ) { while ( <SRCHFILE> ) {
if ( m/^--- TEST RESULTS/ ) { if ( m/^--- TEST RESULTS/ ) {
push(@lines, $_); last; push(@lines, $_); last;
} }
} }
# Process test results
while ( <SRCHFILE> ) { while ( <SRCHFILE> ) {
if ( length($_) > 1 ) { if ( length($_) > 1 ) {
if ( ! m/^gmake:/ && ! m/^ qmtest.target:/ && !/^ local/ ) { if ( ! m/: PASS[ ]*$/ &&
! m/^ qmtest.target:/ &&
! m/^ local/ &&
! m/^gmake:/ ) {
push(@lines,$_); push(@lines,$_);
} }
} }