diff options
author | Reid Spencer <rspencer@reidspencer.com> | 2004-05-31 20:59:55 +0000 |
---|---|---|
committer | Reid Spencer <rspencer@reidspencer.com> | 2004-05-31 20:59:55 +0000 |
commit | aa0bfbe3d1f9439a3212e0a96417618bff5a4cef (patch) | |
tree | 8cd7421b2c418dd20fd91bf0e7dd4a9d81bbf1c7 /utils/NightlyTest.pl | |
parent | e82706b3a06d751f2fc74d81ec1a20bcdca6a653 (diff) | |
download | llvm-aa0bfbe3d1f9439a3212e0a96417618bff5a4cef.tar.gz llvm-aa0bfbe3d1f9439a3212e0a96417618bff5a4cef.tar.bz2 llvm-aa0bfbe3d1f9439a3212e0a96417618bff5a4cef.tar.xz |
Clean up the Feature and Regression test output to (a) use section headers,
(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
Diffstat (limited to 'utils/NightlyTest.pl')
-rwxr-xr-x | utils/NightlyTest.pl | 45 |
1 files changed, 35 insertions, 10 deletions
diff --git a/utils/NightlyTest.pl b/utils/NightlyTest.pl index cf1d1b9c7a..f34c3f696e 100755 --- a/utils/NightlyTest.pl +++ b/utils/NightlyTest.pl @@ -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 |