4 # Copyright (C) 1999, 2000, 2003, 2005-2008 Free Software Foundation, Inc.
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.
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.
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/>.
21 (my $program_name = $0) =~ s|.*/||;
23 # Turn off localization of executable's output.
24 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
27 my $try_help = "Try `$prog --help' for more information.\n";
31 ['onearg-1', qw(10), {OUT => [(1..10)]}],
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)]}],
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,'},
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)]}],
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)]}],
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)]}],
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)]}],
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%']}],
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 }],
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 }],
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"}],
93 # Append a newline to each entry in the OUT array.
100 $e->{OUT} = join ("\n", @{$e->{OUT}}) . "\n"
101 if ref $e eq 'HASH' and exists $e->{OUT};
105 my $save_temps = $ENV{SAVE_TEMPS};
106 my $verbose = $ENV{VERBOSE};
108 my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);