[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