tests/misc/seq

   1 #!/usr/bin/perl
   2 # Test "seq".
   3
   4 # Copyright (C) 1999, 2000, 2003, 2005-2009 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 $locale = $ENV{LOCALE_FR_UTF8};
  30 ! defined $locale || $locale eq 'none'
  31   and $locale = 'C';
  32
  33 my @Tests =
  34   (
  35    ['onearg-1', qw(10),         {OUT => [(1..10)]}],
  36    ['onearg-2', qw(-1)],
  37    ['empty-rev', qw(1 -1 3)],
  38    ['neg-1',    qw(-10 10 10),  {OUT => [qw(-10 0 10)]}],
  39    # ['neg-2',  qw(-.1 .1 .11), {OUT => [qw(-0.1 0.0 0.1)]}],
  40    ['neg-3',    qw(1 -1 0),     {OUT => [qw(1 0)]}],
  41    ['neg-4',    qw(1 -1 -1),    {OUT => [qw(1 0 -1)]}],
  42
  43    ['float-1',  qw(0.8 0.1 0.9),        {OUT => [qw(0.8 0.9)]}],
  44    ['float-2',  qw(0.1 0.99 1.99),      {OUT => [qw(0.10 1.09)]}],
  45    ['float-3',  qw(10.8 0.1 10.95),     {OUT => [qw(10.8 10.9)]}],
  46    ['float-4',  qw(0.1 -0.1 -0.2),      {OUT => [qw(0.1 0.0 -0.1 -0.2)]},
  47     {OUT_SUBST => 's,^-0\.0$,0.0,'},
  48    ],
  49    ['float-5',  qw(0.8 1e-1 0.9),       {OUT => [qw(0.8 0.9)]}],
  50    # Don't append lots of zeros to that 0.9000...; for example, changing the
  51    # number to 0.90000000000000000000 tickles a bug in Solaris 8 strtold
  52    # that would cause the test to fail.
  53    ['float-6',  qw(0.8 0.1 0.9000000000000),    {OUT => [qw(0.8 0.9)]}],
  54
  55    ['wid-1',    qw(.8 1e-2 .81),  {OUT => [qw(0.80 0.81)]}],
  56    ['wid-2',    qw(.89999 1e-7 .8999901),  {OUT => [qw(0.8999900 0.8999901)]}],
  57
  58    ['eq-wid-1', qw(-w 1 -1 -1), {OUT => [qw(01 00 -1)]}],
  59    # Prior to 2.0g, this test would fail on e.g., HPUX systems
  60    # because it'd end up using %3.1f as the format instead of %4.1f.
  61    ['eq-wid-2', qw(-w -.1 .1 .11),{OUT => [qw(-0.1 00.0 00.1)]}],
  62    ['eq-wid-3', qw(-w 1 3.0),  {OUT => [qw(1 2 3)]}],
  63    ['eq-wid-4', qw(-w .8 1e-2 .81),  {OUT => [qw(0.80 0.81)]}],
  64    ['eq-wid-5', qw(-w 1 .5 2),  {OUT => [qw(1.0 1.5 2.0)]}],
  65    ['eq-wid-6', qw(-w +1 2),  {OUT => [qw(1 2)]}],
  66    ['eq-wid-7', qw(-w "    .1"  "    .1"),  {OUT => [qw(0.1)]}],
  67    ['eq-wid-8', qw(-w 9 0.5 10),  {OUT => [qw(09.0 09.5 10.0)]}],
  68
  69    # Prior to coreutils-4.5.11, some of these were not accepted.
  70    ['fmt-1',    qw(-f %2.1f 1.5 .5 2),{OUT => [qw(1.5 2.0)]}],
  71    ['fmt-2',    qw(-f %0.1f 1.5 .5 2),{OUT => [qw(1.5 2.0)]}],
  72    ['fmt-3',    qw(-f %.1f  1.5 .5 2),{OUT => [qw(1.5 2.0)]}],
  73
  74    ['fmt-4',    qw(-f %3.0f 1 2),     {OUT => ['  1', '  2']}],
  75    ['fmt-5',    qw(-f %-3.0f 1 2),    {OUT => ['1  ', '2  ']}],
  76    ['fmt-6',    qw(-f %+3.0f 1 2),    {OUT => [' +1', ' +2']}],
  77    ['fmt-7',    qw(-f %0+3.0f 1 2),   {OUT => [qw(+01 +02)]}],
  78    ['fmt-8',    qw(-f %0+.0f 1 2),    {OUT => [qw(+1 +2)]}],
  79    ['fmt-9',    '-f "% -3.0f"', qw(-1 0), {OUT => ['-1 ', ' 0 ']}],
  80    ['fmt-a',    '-f "% -.0f"',qw(-1 0), {OUT => ['-1', ' 0']}],
  81    ['fmt-b',    qw(-f %%%g%% 1),        {OUT => ['%1%']}],
  82
  83    # In coreutils-[6.0..6.9], this would mistakenly succeed and print "%Lg".
  84    ['fmt-c',    qw(-f %%g 1), {EXIT => 1},
  85     {ERR => "seq: format `%%g' has no % directive\n"}],
  86
  87    # In coreutils-6.9..6.10, this would fail with an erroneous diagnostic:
  88    # "seq: memory exhausted".  In coreutils-6.0..6.8, it would mistakenly
  89    # succeed and print a blank line.
  90    ['fmt-eos1', qw(-f % 1), {EXIT => 1},
  91     {ERR => "seq: format `%' ends in %\n"}],
  92    ['fmt-eos2', qw(-f %g% 1), {EXIT => 1},
  93     {ERR => "seq: format `%g%' has too many % directives\n"}],
  94
  95    ['fmt-d',    qw(-f "" 1), {EXIT => 1},
  96     {ERR => "seq: format `' has no % directive\n"}],
  97    ['fmt-e',    qw(-f %g%g 1), {EXIT => 1},
  98     {ERR => "seq: format `%g%g' has too many % directives\n"}],
  99
 100    # With coreutils-6.12 and earlier, with a UTF8 numeric locale that uses
 101    # something other than "." as the decimal point, this use of seq would
 102    # fail to print the "2,0" endpoint.
 103    ['locale-dec-pt', qw(-0.1 0.1 2),
 104     {OUT => [qw(-0.1 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0
 105                          1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0)]},
 106
 107     {ENV => "LC_ALL=$locale"},
 108     {OUT_SUBST => 's/,/./g'},
 109     ],
 110   );
 111
 112 # Append a newline to each entry in the OUT array.
 113 my $t;
 114 foreach $t (@Tests)
 115   {
 116     my $e;
 117     foreach $e (@$t)
 118       {
 119         $e->{OUT} = join ("\n", @{$e->{OUT}}) . "\n"
 120           if ref $e eq 'HASH' and exists $e->{OUT};
 121       }
 122   }
 123
 124 my $save_temps = $ENV{SAVE_TEMPS};
 125 my $verbose = $ENV{VERBOSE};
 126
 127 my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
 128 exit $fail;