#!/bin/sh
+# -*- perl -*-
: ${PERL=perl}
: ${srcdir=.}
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
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;