mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-19 04:29:21 +00:00
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
This commit is contained in:
parent
e82706b3a0
commit
aa0bfbe3d1
@ -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 ) {
|
||||
chomp($_);
|
||||
if ( ! m/: PASS[ ]*$/ &&
|
||||
! m/^ qmtest.target:/ &&
|
||||
! m/^ local/ &&
|
||||
! m/^gmake:/ ) {
|
||||
push(@lines,$_);
|
||||
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
|
||||
|
Loading…
Reference in New Issue
Block a user