diff options
author | Jim Meyering <meyering@redhat.com> | 2007-11-03 10:10:38 +0100 |
---|---|---|
committer | Jim Meyering <meyering@redhat.com> | 2007-11-03 10:42:52 +0100 |
commit | 0814422a7df34bf06f15a6f064472f3aed8c7ebe (patch) | |
tree | 71eb4ce8382c954c06b83e9da622652be98275b6 /tests/misc | |
parent | a860ca32b0cadfff722f7639b2158a59be7bd346 (diff) | |
download | coreutils-0814422a7df34bf06f15a6f064472f3aed8c7ebe.tar.xz |
seq: add another test for the %% bug
* tests/misc/seq (fmt-c): Test the other fixed case, too.
Diffstat (limited to 'tests/misc')
-rwxr-xr-x | tests/misc/seq | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/misc/seq b/tests/misc/seq index 73f41336d..ec843bcf0 100755 --- a/tests/misc/seq +++ b/tests/misc/seq @@ -36,6 +36,8 @@ use strict; # Turn off localisation of executable's ouput. @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3; +my $prog = 'seq'; + my @Tests = ( ['onearg-1', qw(10), {OUT => [(1..10)]}], @@ -80,6 +82,12 @@ my @Tests = ['fmt-9', '-f "% -3.0f"', qw(-1 0), {OUT => ['-1 ', ' 0 ']}], ['fmt-a', '-f "% -.0f"',qw(-1 0), {OUT => ['-1', ' 0']}], ['fmt-b', qw(-f %%%g%% 1), {OUT => ['%1%']}], + + # In coreutils-[6.0..6.9], this would mistakenly succeed and print "%Lg". + ['fmt-c', qw(-f %%g 1), {EXIT => 1}, + {ERR => "seq: invalid format string: `%%g'\n" + . "Try `seq --help' for more information.\n"}, +], ); # Append a newline to each entry in the OUT array. @@ -96,7 +104,6 @@ foreach $t (@Tests) my $save_temps = $ENV{SAVE_TEMPS}; my $verbose = $ENV{VERBOSE}; -my $prog = 'seq'; my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose); exit $fail; |