From aa0bfbe3d1f9439a3212e0a96417618bff5a4cef Mon Sep 17 00:00:00 2001
From: Reid Spencer <rspencer@reidspencer.com>
Date: Mon, 31 May 2004 20:59:55 +0000
Subject: [PATCH] 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
---
 utils/NightlyTest.pl | 45 ++++++++++++++++++++++++++++++++++----------
 1 file changed, 35 insertions(+), 10 deletions(-)

diff --git a/utils/NightlyTest.pl b/utils/NightlyTest.pl
index cf1d1b9c7a0..f34c3f696e8 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