From 4b7f7aade1151d3004639d2ff20b102f593cc1ef Mon Sep 17 00:00:00 2001
From: Patrick Jenkins <pjenkins@apple.com>
Date: Thu, 17 Aug 2006 22:11:03 +0000
Subject: [PATCH] Changing the format dejagnu tests are submitted. We used to
 only submit multisource information for pass fail. Now we submit all
 pass/fail test information. This should fix the issue where some results were
 not being reported.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@29757 91177308-0d34-0410-b5e6-96231b3b80d8
---
 utils/NewNightlyTest.pl | 42 ++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 19 deletions(-)

diff --git a/utils/NewNightlyTest.pl b/utils/NewNightlyTest.pl
index 58d8d48451c..1cd4df0bd41 100755
--- a/utils/NewNightlyTest.pl
+++ b/utils/NewNightlyTest.pl
@@ -824,7 +824,7 @@ sub TestDirectory {
   # Create a list of the tests which were run...
   #
   system "egrep 'TEST-(PASS|FAIL)' < $ProgramTestLog ".
-         "| sort > $Prefix-multisourceprogramstable.txt";
+         "| sort > $Prefix-$SubDir-Tests.txt";
   }
   $ProgramsTable = ReadFile "report.nightly.csv";
 
@@ -832,37 +832,47 @@ sub TestDirectory {
   return ($ProgramsTable, $llcbeta_options);
 } #end sub TestDirectory
 
+##############################################################
+#
+# Calling sub TestDirectory
+#
+##############################################################
 if (!$BuildError) {
   if ( $VERBOSE ) {
      print "SingleSource TEST STAGE\n";
   }
   ($SingleSourceProgramsTable, $llcbeta_options) = 
     TestDirectory("SingleSource");
-  WriteFile "$Prefix-singlesourceprogramstable.txt", $SingleSourceProgramsTable;
+  WriteFile "$Prefix-SingleSource-Performance.txt", $SingleSourceProgramsTable;
   if ( $VERBOSE ) {
-     print "MultiSource TEST STAGE\n";
+    print "MultiSource TEST STAGE\n";
   }
   ($MultiSourceProgramsTable, $llcbeta_options) = TestDirectory("MultiSource");
-  WriteFile "$Prefix-multisourceprogramstable.txt", $MultiSourceProgramsTable;
+  WriteFile "$Prefix-MultiSource-Performance.txt", $MultiSourceProgramsTable;
   if ( ! $NOEXTERNALS ) {
     if ( $VERBOSE ) {
       print "External TEST STAGE\n";
     }
     ($ExternalProgramsTable, $llcbeta_options) = TestDirectory("External");
-    WriteFile "$Prefix-externalprogramstable.txt", $ExternalProgramsTable;
-    system "cat $Prefix-singlesourceprogramstable.txt " . 
-               "$Prefix-multisourceprogramstable.txt ".
-               "$Prefix-externalprogramstable.txt | sort > $Prefix-Tests.txt";
+    WriteFile "$Prefix-External-Performance.txt", $ExternalProgramsTable;
+    system "cat $Prefix-SingleSource-Tests.txt " . 
+               "$Prefix-MultiSource-Tests.txt ".
+               "$Prefix-External-Tests.txt | sort > $Prefix-Tests.txt";
+    system "cat $Prefix-SingleSource-Performance.txt " . 
+               "$Prefix-MultiSource-Performance.txt ".
+               "$Prefix-External-Performance.txt | sort > $Prefix-Performance.txt";
   } else {
     $ExternalProgramsTable = "External TEST STAGE SKIPPED\n";
     if ( $VERBOSE ) {
       print "External TEST STAGE SKIPPED\n";
     }
-    system "cat $Prefix-singlesourceprogramstable.txt " . 
-               "$Prefix-multisourceprogramstable.txt ".
+    system "cat $Prefix-SingleSource-Tests.txt " . 
+               "$Prefix-MultiSource-Tests.txt ".
                " | sort > $Prefix-Tests.txt";
+    system "cat $Prefix-SingleSource-Performance.txt " . 
+               "$Prefix-MultiSource-Performance.txt ".
+               " | sort > $Prefix-Performance.txt";
   }
-  WriteFile "$Prefix-externalprogramstable.txt", $ExternalProgramsTable;
 }
 
 ##############################################################
@@ -872,9 +882,8 @@ if (!$BuildError) {
 #
 #
 ##############################################################
-my $dejagnu = ReadFile $DejagnuSum;
-my @DEJAGNU = split "\n", $dejagnu;
-my $dejagnu_test_list="";
+my $dejagnu_test_list = ReadFile "$Prefix-Tests.txt";
+my @DEJAGNU = split "\n", $dejagnu_test_list;
 
 my $passes="",
 my $fails="";
@@ -884,15 +893,12 @@ if(!$NODEJAGNU) {
   for ($x=0; $x<@DEJAGNU; $x++) {
     if ($DEJAGNU[$x] =~ m/^PASS:/) {
       $passes.="$DEJAGNU[$x]\n";
-      $dejagnu_test_list.="$DEJAGNU[$x]\n";
     }
     elsif ($DEJAGNU[$x] =~ m/^FAIL:/) {
       $fails.="$DEJAGNU[$x]\n";
-      $dejagnu_test_list.="$DEJAGNU[$x]\n";
     }
     elsif ($DEJAGNU[$x] =~ m/^XFAIL:/) {
       $xfails.="$DEJAGNU[$x]\n";
-      $dejagnu_test_list.="$DEJAGNU[$x]\n";
     }
   }
 }
@@ -983,8 +989,6 @@ if ($GCCPATH ne "") {
 @GCC_VERSION = split '\n', $gcc_version_long;
 my $gcc_version = $GCC_VERSION[0];
 
-my $all_tests = ReadFile "$Prefix-Tests.txt";
-
 ##############################################################
 #
 # Send data via a post request
-- 
2.34.1