RPCS3/llvm
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm.git synced 2025-01-19 16:35:10 +00:00
Code Issues Actions Packages 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) { if (open SRCHFILE, $filename) {
# Skip stuff before ---TEST RESULTS # Skip stuff before ---TEST RESULTS
while ( <SRCHFILE> ) { while ( <SRCHFILE> ) {
if ( m/^--- TEST RESULTS/ ) { if ( m/^--- TEST RESULTS/ ) { last; }
push(@lines, $_); last;
}
} }
# Process test results # Process test results
push(@lines,"<h3>TEST RESULTS</h3><ol><li>\n");
my $first_list = 1;
my $should_break = 1;
while ( <SRCHFILE> ) { while ( <SRCHFILE> ) {
if ( length($_) > 1 ) { if ( length($_) > 1 ) {
if ( ! m/: PASS[ ]*$/ && chomp($_);
! m/^ qmtest.target:/ && if ( ! m/: PASS[ ]*$/ &&
! m/^ local/ && ! m/^ qmtest.target:/ &&
! m/^gmake:/ ) { ! m/^ local/ &&
push(@lines,$_); ! 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; close SRCHFILE;
} }
my $content = join("",@lines); my $content = join("",@lines);
return "<pre>\n@lines</pre>\n"; return "$content</pre>\n";
} }
# Get results of feature tests. # Get results of feature tests.
my $FeatureTestResults; # String containing the results of the feature tests my $FeatureTestResults; # String containing the results of the feature tests
my $FeatureTime; # System+CPU Time for feature tests my $FeatureTime; # System+CPU Time for feature tests