CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-02-19 22:02:21 +02:00
Code Issues Projects Releases Wiki Activity

Add a test for this:

Browse Source 
(main): Don't stop processing arguments upon the first invalid one.
This commit is contained in:
Jim Meyering
2005-10-01 08:02:09 +00:00
parent 9c06ae5cff
commit 5c8ecd2831
1 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
tests/factor/basic
View File

@@ -58,19 +58,32 @@ my @Tests =
{ERR => "$prog: invalid option -- 1\n"
. "Try `$prog --help' for more information.\n"},
{EXIT => 1}],
['cont', 'a 4',
{OUT => "4: 2 2\n"},
{ERR => "$prog: `a' is not a valid positive integer\n"},
{EXIT => 1}],
);
# Prepend the command line argument and append a newline to end
# of each expected `OUT' string.
my $t;
Test:
foreach $t (@Tests)
{
my $arg1 = $t->[1];
my $e;
foreach $e (@$t)
# Don't fiddle with expected OUT string if there's a nonzero exit status.
foreach my $e (@$t)
{
$e->{OUT} = "$arg1: $e->{OUT}\n"
if ref $e eq 'HASH' and exists $e->{OUT};
ref $e eq 'HASH' && exists $e->{EXIT} && $e->{EXIT}
and next Test;
}
foreach my $e (@$t)
{
ref $e eq 'HASH' && exists $e->{OUT}
and $e->{OUT} = "$arg1: $e->{OUT}\n"
}
}