diff options
author | Jim Meyering <jim@meyering.net> | 1999-04-19 14:03:17 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1999-04-19 14:03:17 +0000 |
commit | dcf32e94d2ab1fd1dca760f8eb495a237adb472f (patch) | |
tree | 73ea8999c3ed55a691e04ea6456fc03132f87000 /tests | |
parent | 3e47e246f8e3e347f407e8b33ab95b7e026af723 (diff) | |
download | coreutils-dcf32e94d2ab1fd1dca760f8eb495a237adb472f.tar.xz |
*** empty log message ***
Diffstat (limited to 'tests')
-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; |