diff options
-rwxr-xr-x | runtest.pl.in | 31 |
1 files changed, 4 insertions, 27 deletions
diff --git a/runtest.pl.in b/runtest.pl.in index db58726d..f2b70a14 100755 --- a/runtest.pl.in +++ b/runtest.pl.in @@ -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 @@ runtest.pl (test|ALL) [release|debug] 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 @@ else # report results print "--------\n",join("\n",@results),"\n"; -exit $exit_code; - sub runtest { my ($t) = @_; @@ -83,7 +67,6 @@ sub runtest if($make_res != 0) { push @results,"$t: make failed"; - $exit_code = 2; return; } @@ -99,14 +82,8 @@ sub runtest $last = $_ if m/\w/; } close RESULTS; - chomp $last; push @results,"$t: $last"; - - if ($last ne "PASSED") - { - $exit_code = 1; - } } else { |