*** empty log message ***

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;