summaryrefslogtreecommitdiff
path: root/common/tests/run-test.pl
diff options
context:
space:
mode:
authorschodet2008-02-29 10:22:51 +0000
committerschodet2008-02-29 10:22:51 +0000
commitf3f3cb4555a3878a33d4b8a082f81b89c1c5e6b5 (patch)
treedfefa07a1ee72463d5931c0d582c4b1bca93c571 /common/tests/run-test.pl
parent30acb80faa92a0e67d15fb64962050d8920f7c46 (diff)
* common/tests:
- check for base argument. git-svn-id: svn+ssh://pessac/svn/cesar/trunk@1511 017c9cb6-072f-447c-8318-d5b54f68fe89
Diffstat (limited to 'common/tests/run-test.pl')
-rwxr-xr-xcommon/tests/run-test.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/common/tests/run-test.pl b/common/tests/run-test.pl
index 404744eb10..aff9799327 100755
--- a/common/tests/run-test.pl
+++ b/common/tests/run-test.pl
@@ -23,9 +23,9 @@ GetOptions (
) or pod2usage (2);
pod2usage (1) if $help;
-my $base = getcwd . '/' . shift @ARGV;
+@ARGV == 1 or pod2usage (2);
-@ARGV == 0 or pod2usage (2);
+my $base = getcwd . '/' . shift @ARGV;
my %include;
@include{@include} = ();