Changeset 1907 for box/trunk/runtest.pl.in

Timestamp:

03/11/2007 19:41:21 (5 years ago)

Author:

chris

Message:

Keep each test's log in a separate file for later review.

File:

• box/trunk/runtest.pl.in (modified) (3 diffs)

box/trunk/runtest.pl.in

@@ -87 +87 @@
                 return;
         }
+
+        my $logfile = "test-$t.log";
         
         # run it
         my $test_res = system("cd $test_mode/test/$t ; ./t 2>&1 " .
-                "| tee ../../../temp.runtest");
+                "| tee ../../../$logfile");
 
         # open test results
-        if(open RESULTS,'temp.runtest')
+        if(open RESULTS, $logfile)
         {
                 my $last;
@@ -103 +105 @@
 
                 chomp $last;
-                push @results,"$t: $last";
+                push @results, "$t: $last";
 
                 if ($last ne "PASSED") 
@@ -112 +114 @@
         else
         {
-                push @results,"$t: output not found";
+                push @results, 
+                        "$t: failed to open test log file: $logfile: $!";
         }
         
         # delete test results
-        # unlink 'temp.runtest';
+        # unlink $logfile;
 }