diff options
author | Chris Wilson <chris+github@qwirx.com> | 2006-08-31 23:41:33 +0000 |
---|---|---|
committer | Chris Wilson <chris+github@qwirx.com> | 2006-08-31 23:41:33 +0000 |
commit | a3f5f3a3a94a59bc9337ea4af140c50c1b4941a7 (patch) | |
tree | 79b522bd11f8ddd5ec64cc5bd824191ff2b6a789 /runtest.pl.in | |
parent | ec4516362d759a8b4070729f5129ba24dcbe5e4a (diff) |
Revert to trunk
Diffstat (limited to 'runtest.pl.in')
-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 { |