6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-01-14 16:33:28 +00:00
Code Issues Projects Releases Wiki Activity

Clean up the Feature and Regression test output to (a) use section headers,

Browse Source 
(b) avoid <pre> tag so page width doesn't become excessive, (c) omit the
execution time stats, (d) format each reported test in a list with bold
headings for readability, (e) omit long lines of dashes.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@13912 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Reid Spencer 2004-05-31 20:59:55 +00:00
parent e82706b3a0
commit aa0bfbe3d1
1 changed files with 35 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
utils/NightlyTest.pl
View File

@ -272,28 +272,53 @@ sub GetQMTestResults { # (filename)
if (open SRCHFILE, $filename) {
# Skip stuff before ---TEST RESULTS
while ( <SRCHFILE> ) {
if ( m/^--- TEST RESULTS/ ) {
push(@lines, $_); last;
}
if ( m/^--- TEST RESULTS/ ) { last; }
}
# Process test results
push(@lines,"<h3>TEST RESULTS</h3><ol><li>\n");
my $first_list = 1;
my $should_break = 1;
while ( <SRCHFILE> ) {
if ( length($_) > 1 ) {
if ( ! m/: PASS[ ]*$/ &&
! m/^ qmtest.target:/ &&
! m/^ local/ &&
! m/^gmake:/ ) {
push(@lines,$_);
chomp($_);
if ( ! m/: PASS[ ]*$/ &&
! m/^ qmtest.target:/ &&
! m/^ local/ &&
! m/^gmake:/ ) {
if ( m/: XFAIL/ || m/: XPASS/ || m/: FAIL/ ) {
if ( $first_list ) {
$first_list = 0;
$should_break = 1;
push(@lines,"<b>$_</b><br/>\n");
} else {
push(@lines,"</li><li><b>$_</b><br/>\n");
}
} elsif ( m/^--- STATISTICS/ ) {
if ( $first_list ) { push(@lines,"<b>PERFECT!</b>"); }
push(@lines,"</li></ol><h3>STATISTICS</h3><pre>\n");
$should_break = 0;
} elsif ( m/^--- TESTS WITH/ ) {
$should_break = 1;
$first_list = 1;
push(@lines,"</pre><h3>TESTS WITH UNEXPECTED RESULTS</h3><ol><li>\n");
} elsif ( m/^real / ) {
last;
} else {
if ( $should_break ) {
push(@lines,"$_<br/>\n");
} else {
push(@lines,"$_\n");
}
}
}
}
}
close SRCHFILE;
}
my $content = join("",@lines);
return "<pre>\n@lines</pre>\n";
return "$content</pre>\n";
}
# Get results of feature tests.
my $FeatureTestResults; # String containing the results of the feature tests
my $FeatureTime; # System+CPU Time for feature tests