mirrors/coreutils
0
0
Fork 0
mirror of https://github.com/coreutils/coreutils.git synced 2024-12-16 21:34:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Meyering 1999-04-19 14:03:17 +00:00
parent 3e47e246f8
commit dcf32e94d2
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/seq/basic
View File

@ -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;