[Box Backup-commit] COMMIT r1907 - box/trunk

[boxbackup-dev@fluffy.co.uk]

Author: chris
Date: 2007-11-03 19:41:21 +0000 (Sat, 03 Nov 2007)
New Revision: 1907

Modified:
   box/trunk/runtest.pl.in
Log:
Keep each test's log in a separate file for later review.


Modified: box/trunk/runtest.pl.in
===================================================================
--- box/trunk/runtest.pl.in	2007-11-03 19:28:12 UTC (rev 1906)
+++ box/trunk/runtest.pl.in	2007-11-03 19:41:21 UTC (rev 1907)
@@ -86,13 +86,15 @@
 		$exit_code = 2;
 		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;
 		while(<RESULTS>)
@@ -102,7 +104,7 @@
 		close RESULTS;
 
 		chomp $last;
-		push @results,"$t: $last";
+		push @results, "$t: $last";
 
 		if ($last ne "PASSED") 
 		{ 
@@ -111,10 +113,11 @@
 	}
 	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;
 }