diff options
| -rwxr-xr-x | tests/seq/basic | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/tests/seq/basic b/tests/seq/basic index 78419ce58..95e563a07 100755 --- a/tests/seq/basic +++ b/tests/seq/basic @@ -1,4 +1,5 @@ #!/bin/sh +# -*- perl -*- : ${PERL=perl} : ${srcdir=.} @@ -6,6 +7,7 @@ case "$PERL" in *'missing perl') echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test" + #' exit 77 ;; esac @@ -22,11 +24,14 @@ use strict; my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n"; my @Tests = - ( - ['1', '10', {OUT => [(1..10)]}], - ['neg-start-1', qw(-10 10 10), {OUT => [qw(-10 0 10)]}], - ['neg-start-2', qw(-.1 .1 .1), {OUT => [qw(-0.1 0 0.1)]}], - ); + ( + ['onearg-1', qw(10), {OUT => [(1..10)]}], + ['onearg-2', qw(-1), {OUT => [qw(1 0 -1)]}], + ['neg-1', qw(-10 10 10), {OUT => [qw(-10 0 10)]}], + ['neg-2', qw(-.1 .1 .1), {OUT => [qw(-0.1 0 0.1)]}], + ['neg-3', qw(1 -1 0), {OUT => [qw(1 0)]}], + ['neg-4', qw(1 -1 -1), {OUT => [qw(1 0 -1)]}], + ); # Append a newline to each entry in the OUT array. my $t; |