[llvm-commits] CVS: llvm/utils/NewNightlyTest.pl

[Patrick Jenkins]

Changes in directory llvm/utils:

NewNightlyTest.pl updated: 1.53 -> 1.54
---
Log message:

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.


---
Diffs of the changes:  (+23 -19)

 NewNightlyTest.pl |   42 +++++++++++++++++++++++-------------------
 1 files changed, 23 insertions(+), 19 deletions(-)


Index: llvm/utils/NewNightlyTest.pl
diff -u llvm/utils/NewNightlyTest.pl:1.53 llvm/utils/NewNightlyTest.pl:1.54
--- llvm/utils/NewNightlyTest.pl:1.53	Wed Aug 16 17:32:20 2006
+++ llvm/utils/NewNightlyTest.pl	Thu Aug 17 17:11:03 2006
@@ -824,7 +824,7 @@
   # 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 @@
   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 @@
 #
 #
 ##############################################################
-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 @@
   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 @@
 @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