[Box Backup-dev] COMMIT r909 - box/chris/merge

boxbackup-dev at fluffy.co.uk boxbackup-dev at fluffy.co.uk
Fri Sep 1 00:41:33 BST 2006


Author: chris
Date: 2006-09-01 00:41:33 +0100 (Fri, 01 Sep 2006)
New Revision: 909

Modified:
   box/chris/merge/runtest.pl.in
Log:
Revert to trunk


Modified: box/chris/merge/runtest.pl.in
===================================================================
--- box/chris/merge/runtest.pl.in	2006-08-31 23:40:18 UTC (rev 908)
+++ box/chris/merge/runtest.pl.in	2006-08-31 23:41:33 UTC (rev 909)
@@ -1,14 +1,11 @@
 #!@PERL@
 
-use strict;
-use warnings;
-
 use lib 'infrastructure';
 use BoxPlatform;
 
 my ($test_name,$test_mode) = @ARGV;
 
-$test_mode = 'debug' if not defined $test_mode or $test_mode eq '';
+$test_mode = 'debug' if $test_mode eq '';
 
 if($test_name eq '' || ($test_mode ne 'debug' && $test_mode ne 'release'))
 {
@@ -20,26 +17,15 @@
 Mode defaults to debug.
 
 __E
-	exit(2);
+	exit(0);
 }
 
 my @results;
-my $exit_code = 0;
 
 if($test_name ne 'ALL')
 {
-	# run one or more specified test
-	if ($test_name =~ m/,/)
-	{
-		foreach my $test (split m/,/, $test_name)
-		{
-			runtest($test);
-		}
-	}
-	else
-	{
-		runtest($test_name);
-	}
+	# run one test
+	runtest($test_name);
 }
 else
 {
@@ -71,8 +57,6 @@
 # report results
 print "--------\n",join("\n", at results),"\n";
 
-exit $exit_code;
-
 sub runtest
 {
 	my ($t) = @_;
@@ -83,7 +67,6 @@
 	if($make_res != 0)
 	{
 		push @results,"$t: make failed";
-		$exit_code = 2;
 		return;
 	}
 	
@@ -99,14 +82,8 @@
 			$last = $_ if m/\w/;
 		}
 		close RESULTS;
-
 		chomp $last;
 		push @results,"$t: $last";
-
-		if ($last ne "PASSED") 
-		{ 
-			$exit_code = 1;
-		}
 	}
 	else
 	{




More information about the Boxbackup-dev mailing list