summaryrefslogtreecommitdiff
path: root/runtest.pl.in
diff options
context:
space:
mode:
authorChris Wilson <chris+github@qwirx.com>2006-08-31 23:43:40 +0000
committerChris Wilson <chris+github@qwirx.com>2006-08-31 23:43:40 +0000
commitc08e922469af23eebdf54c174fc01611a748cdf4 (patch)
tree689d6e9f94d395faf71140cb265e115134d4ec8d /runtest.pl.in
parenta3f5f3a3a94a59bc9337ea4af140c50c1b4941a7 (diff)
(refs #3)
Use strict and warnings for code safety. Exit with status 2 on invalid usage. Allow running multiple tests, comma separated. Exit with status 2 if make fails for any test. Exit with status 1 if any test fails.
Diffstat (limited to 'runtest.pl.in')
-rwxr-xr-xruntest.pl.in31
1 files changed, 27 insertions, 4 deletions
diff --git a/runtest.pl.in b/runtest.pl.in
index f2b70a14..db58726d 100755
--- a/runtest.pl.in
+++ b/runtest.pl.in
@@ -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'))
{
@@ -17,15 +20,26 @@ runtest.pl (test|ALL) [release|debug]
Mode defaults to debug.
__E
- exit(0);
+ exit(2);
}
my @results;
+my $exit_code = 0;
if($test_name ne 'ALL')
{
- # run one test
- runtest($test_name);
+ # run one or more specified test
+ if ($test_name =~ m/,/)
+ {
+ foreach my $test (split m/,/, $test_name)
+ {
+ runtest($test);
+ }
+ }
+ else
+ {
+ runtest($test_name);
+ }
}
else
{
@@ -57,6 +71,8 @@ else
# report results
print "--------\n",join("\n",@results),"\n";
+exit $exit_code;
+
sub runtest
{
my ($t) = @_;
@@ -67,6 +83,7 @@ sub runtest
if($make_res != 0)
{
push @results,"$t: make failed";
+ $exit_code = 2;
return;
}
@@ -82,8 +99,14 @@ sub runtest
$last = $_ if m/\w/;
}
close RESULTS;
+
chomp $last;
push @results,"$t: $last";
+
+ if ($last ne "PASSED")
+ {
+ $exit_code = 1;
+ }
}
else
{