tests/misc/seq

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