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

Patrick Jenkins pjenkins at apple.com
Fri Aug 18 11:00:35 PDT 2006



Changes in directory llvm/utils:

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

These changes reflect the changes in the database for how tests are stored
and bring the handing of dejagnu tests into compliance with this new scheme.


---
Diffs of the changes:  (+26 -51)

 NewNightlyTest.pl |   77 ++++++++++++++++++------------------------------------
 1 files changed, 26 insertions(+), 51 deletions(-)


Index: llvm/utils/NewNightlyTest.pl
diff -u llvm/utils/NewNightlyTest.pl:1.54 llvm/utils/NewNightlyTest.pl:1.55
--- llvm/utils/NewNightlyTest.pl:1.54	Thu Aug 17 17:11:03 2006
+++ llvm/utils/NewNightlyTest.pl	Fri Aug 18 13:00:21 2006
@@ -365,64 +365,39 @@
 }
 
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+#
+# This function is meant to read in the dejagnu sum file and 
+# return a string with only the results (i.e. PASS/FAIL/XPASS/
+# XFAIL).
+#
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 sub GetDejagnuTestResults { # (filename, log)
-  my ($filename, $DejagnuLog) = @_;
-  my @lines;
-  my $firstline;
-  $/ = "\n"; #Make sure we're going line at a time.
-
-  if( $VERBOSE) { print "DEJAGNU TEST RESULTS:\n"; }
-
-  if (open SRCHFILE, $filename) {
-# Process test results
-    my $first_list = 1;
-    my $should_break = 1;
-    my $nocopy = 0;
-    my $readingsum = 0;
-    while ( <SRCHFILE> ) {
-        if ( length($_) > 1 ) {
-            chomp($_);
-            if ( m/^XPASS:/ || m/^FAIL:/ ) {
-                $nocopy = 0;
-                if ( $first_list ) {
-                    push(@lines, "UNEXPECTED TEST RESULTS\n");
-                    $first_list = 0;
-                    $should_break = 1;
-                    push(@lines, "$_\n");
-                    if( $VERBOSE) { print "  $_\n"; }
-                } else {
-                    push(@lines, "$_\n");
-                    if( $VERBOSE) { print "  $_\n"; }
+    my ($filename, $DejagnuLog) = @_;
+    my @lines;
+    $/ = "\n"; #Make sure we're going line at a time.
+
+    if( $VERBOSE) { print "DEJAGNU TEST RESULTS:\n"; }
+
+    if (open SRCHFILE, $filename) {
+        # Process test results
+        while ( <SRCHFILE> ) {
+            if ( length($_) > 1 ) {
+                chomp($_);
+                if ( m/^PASS:/ || m/^XPASS:/ ||
+                     m/^FAIL:/ || m/^XFAIL:/) {
+                    push(@lines, "$_");
                 }
-            } #elsif ( m/Summary/ ) {
-            #    if ( $first_list ) {
-            #   push(@lines, "PERFECT!");
-            #   print "  PERFECT!\n";
-            #    } else {
-            #   push(@lines, "</li></ol>\n");
-            #    }
-            #    push(@lines, "STATISTICS\n");
-            #    print "\nDEJAGNU STATISTICS:\n";
-            #    $should_break = 0;
-            #    $nocopy = 0;
-            #    $readingsum = 1;
-            #} 
-            elsif ( $readingsum ) {
-                push(@lines,"$_\n");
-                if( $VERBOSE) { print "  $_\n"; }
             }
-
         }
     }
-  }
-  close SRCHFILE;
+    close SRCHFILE;
 
-  my $content = join("", @lines);
-  return $content;
+    my $content = join("\n", @lines);
+    return $content;
 }
 
 
+
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 #
 # This function acts as a mini web browswer submitting data
@@ -716,7 +691,7 @@
 # Running dejagnu tests
 #
 ##############################################################
-my $DejangnuTestResults; # String containing the results of the dejagnu
+my $DejangnuTestResults=""; # String containing the results of the dejagnu
 my $dejagnu_output = "$DejagnuTestsLog";
 if (!$NODEJAGNU) {
   if($VERBOSE) { 
@@ -1032,8 +1007,8 @@
   'all_tests' => $dejagnu_test_list,
   'new_tests' => "",
   'removed_tests' => "",
-  'dejagnutests_log' => $dejagnutests_log,
-  'dejagnutests_sum' => $dejagnutests_sum,
+  'dejagnutests_results' => $DejagnuTestResults,
+  'dejagnutests_log' => $dejagnulog_full,
   'starttime' => $starttime,
   'endtime' => $endtime,
   'o_file_sizes' => $o_file_sizes,






More information about the llvm-commits mailing list