6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-01-04 21:30:49 +00:00
Code Issues Projects Releases Wiki Activity

Improve formatting of the sent mail for the dj test results.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@20537 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Chris Lattner 2005-03-10 16:26:50 +00:00
parent f768bba43f
commit 453d062182
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
utils/NightlyTest.pl
View File

@ -198,9 +198,11 @@ sub GetDejagnuTestResults { # (filename, log)
my @lines;
my $firstline;
$/ = "\n"; #Make sure we're going line at a time.
print "Dejagnu test results:\n";
if (open SRCHFILE, $filename) {
# Process test results
push(@lines,"<h3>UNEXPECTED TEST RESULTS</h3><ol><li>\n");
my $first_list = 1;
my $should_break = 1;
my $nocopy = 0;
@ -211,20 +213,30 @@ sub GetDejagnuTestResults { # (filename, log)
if ( m/^XPASS:/ || m/^FAIL:/ ) {
$nocopy = 0;
if ( $first_list ) {
push(@lines,"<h3>UNEXPECTED TEST RESULTS</h3><ol><li>\n");
$first_list = 0;
$should_break = 1;
push(@lines,"<b>$_</b><br/>\n");
print " $_\n";
} else {
push(@lines,"</li><li><b>$_</b><br/>\n");
print " $_\n";
}
} elsif ( m/Summary/ ) {
if ( $first_list ) { push(@lines,"<b>PERFECT!</b>"); }
push(@lines,"</li></ol><h3>STATISTICS</h3><pre>\n");
if ( $first_list ) {
push(@lines,"<b>PERFECT!</b>");
print " PERFECT!\n";
} else {
push(@lines, "</li></ol>\n");
}
push(@lines,"<h3>STATISTICS</h3><pre>\n");
print "\nSTATISTICS:\n";
$should_break = 0;
$nocopy = 0;
$readingsum = 1;
} elsif ( $readingsum ) {
push(@lines,"$_\n");
print "$_\n";
}
}
}
@ -446,7 +458,6 @@ if(!$NODEJAGNU) {
CopyFile("test/testrun.sum", $DejagnuSum);
$DejagnuTestResults = GetDejagnuTestResults($DejagnuSum, $DejagnuLog);
print $DejagnuTestResults;
} else {
$DejagnuTestResults = "Skipped by user choice.";