tests/misc/seq

   1 #!/bin/sh
   2 # -*- perl -*-
   3 # Test "seq".
   4
   5 # Copyright (C) 1999, 2000, 2003, 2005-2007 Free Software Foundation, Inc.
   6
   7 # This program is free software: you can redistribute it and/or modify
   8 # it under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation, either version 3 of the License, or
  10 # (at your option) any later version.
  11
  12 # This program is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 # GNU General Public License for more details.
  16
  17 # You should have received a copy of the GNU General Public License
  18 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 : ${PERL=perl}
  21 : ${srcdir=.}
  22
  23 $PERL -e 1 > /dev/null 2>&1 || {
  24   echo 1>&2 "$0: configure didn't find a usable version of Perl," \
  25     "so can't run this test"
  26   exit 77
  27 }
  28
  29 me=`echo $0|sed 's,.*/,,'`
  30 exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
  31 require 5.003;
  32 use strict;
  33
  34 (my $program_name = $0) =~ s|.*/||;
  35
  36 # Turn off localisation of executable's ouput.
  37 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
  38
  39 my @Tests =
  40   (
  41    ['onearg-1', qw(10),         {OUT => [(1..10)]}],
  42    ['onearg-2', qw(-1)],
  43    ['neg-1',    qw(-10 10 10),  {OUT => [qw(-10 0 10)]}],
  44    # ['neg-2',  qw(-.1 .1 .11), {OUT => [qw(-0.1 0.0 0.1)]}],
  45    ['neg-3',    qw(1 -1 0),     {OUT => [qw(1 0)]}],
  46    ['neg-4',    qw(1 -1 -1),    {OUT => [qw(1 0 -1)]}],
  47
  48    ['float-1',  qw(0.8 0.1 0.9),        {OUT => [qw(0.8 0.9)]}],
  49    ['float-2',  qw(0.1 0.99 1.99),      {OUT => [qw(0.10 1.09)]}],
  50    ['float-3',  qw(10.8 0.1 10.95),     {OUT => [qw(10.8 10.9)]}],
  51    ['float-4',  qw(0.1 -0.1 -0.2),      {OUT => [qw(0.1 0.0 -0.1 -0.2)]},
  52     {OUT_SUBST => 's,^-0\.0$,0.0,'},
  53    ],
  54    ['float-5',  qw(0.8 1e-1 0.9),       {OUT => [qw(0.8 0.9)]}],
  55    ['float-6',  qw(0.8 0.1 0.90000000000000000000),     {OUT => [qw(0.8 0.9)]}],
  56
  57    ['wid-1',    qw(.8 1e-2 .81),  {OUT => [qw(0.80 0.81)]}],
  58    ['wid-2',    qw(.89999 1e-7 .8999901),  {OUT => [qw(0.8999900 0.8999901)]}],
  59
  60    ['eq-wid-1', qw(-w 1 -1 -1), {OUT => [qw(01 00 -1)]}],
  61    # Prior to 2.0g, this test would fail on e.g., HPUX systems
  62    # because it'd end up using %3.1f as the format instead of %4.1f.
  63    ['eq-wid-2', qw(-w -.1 .1 .11),{OUT => [qw(-0.1 00.0 00.1)]}],
  64    ['eq-wid-3', qw(-w 1 3.0),  {OUT => [qw(1 2 3)]}],
  65    ['eq-wid-4', qw(-w .8 1e-2 .81),  {OUT => [qw(0.80 0.81)]}],
  66    ['eq-wid-5', qw(-w 1 .5 2),  {OUT => [qw(1.0 1.5 2.0)]}],
  67    ['eq-wid-6', qw(-w +1 2),  {OUT => [qw(1 2)]}],
  68    ['eq-wid-7', qw(-w "    .1"  "    .1"),  {OUT => [qw(0.1)]}],
  69
  70    # Prior to coreutils-4.5.11, some of these were not accepted.
  71    ['fmt-1',    qw(-f %2.1f 1.5 .5 2),{OUT => [qw(1.5 2.0)]}],
  72    ['fmt-2',    qw(-f %0.1f 1.5 .5 2),{OUT => [qw(1.5 2.0)]}],
  73    ['fmt-3',    qw(-f %.1f  1.5 .5 2),{OUT => [qw(1.5 2.0)]}],
  74
  75    ['fmt-4',    qw(-f %3.0f 1 2),     {OUT => ['  1', '  2']}],
  76    ['fmt-5',    qw(-f %-3.0f 1 2),    {OUT => ['1  ', '2  ']}],
  77    ['fmt-6',    qw(-f %+3.0f 1 2),    {OUT => [' +1', ' +2']}],
  78    ['fmt-7',    qw(-f %0+3.0f 1 2),   {OUT => [qw(+01 +02)]}],
  79    ['fmt-8',    qw(-f %0+.0f 1 2),    {OUT => [qw(+1 +2)]}],
  80    ['fmt-9',    '-f "% -3.0f"', qw(-1 0), {OUT => ['-1 ', ' 0 ']}],
  81    ['fmt-a',    '-f "% -.0f"',qw(-1 0), {OUT => ['-1', ' 0']}],
  82   );
  83
  84 # Append a newline to each entry in the OUT array.
  85 my $t;
  86 foreach $t (@Tests)
  87   {
  88     my $e;
  89     foreach $e (@$t)
  90       {
  91         $e->{OUT} = join ("\n", @{$e->{OUT}}) . "\n"
  92           if ref $e eq 'HASH' and exists $e->{OUT};
  93       }
  94   }
  95
  96 my $save_temps = $ENV{SAVE_TEMPS};
  97 my $verbose = $ENV{VERBOSE};
  98 my $prog = 'seq';
  99
 100 my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
 101 exit $fail;
 102 EOF