[Box Backup-dev] COMMIT r687 - box/chris/general

[boxbackup-dev at fluffy.co.uk]

Author: chris
Date: 2006-07-23 22:36:27 +0000 (Sun, 23 Jul 2006)
New Revision: 687

Modified:
   box/chris/general/runtest.pl.in
Log:
* runtest.pl.in
- Fixed the exit code so that it actually works :-)


Modified: box/chris/general/runtest.pl.in
===================================================================
--- box/chris/general/runtest.pl.in	2006-07-23 22:29:26 UTC (rev 686)
+++ box/chris/general/runtest.pl.in	2006-07-23 22:36:27 UTC (rev 687)
@@ -1,11 +1,14 @@
 #!@PERL@
 
+use strict;
+use warnings;
+
 use lib 'infrastructure';
 use BoxPlatform;
 
 my ($test_name,$test_mode) = @ARGV;
 
-$test_mode = 'debug' if $test_mode eq '';
+$test_mode = 'debug' if not defined $test_mode or $test_mode eq '';
 
 if($test_name eq '' || ($test_mode ne 'debug' && $test_mode ne 'release'))
 {
@@ -21,7 +24,7 @@
 }
 
 my @results;
-my $exitcode = 0;
+my $exit_code = 0;
 
 if($test_name ne 'ALL')
 {
@@ -102,7 +105,7 @@
 
 		if ($last ne "PASSED") 
 		{ 
-			$result = 1;
+			$exit_code = 1;
 		}
 	}
 	else