From 5c8ecd28312a5e9979bb4789e623cd9db8796ede Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sat, 1 Oct 2005 08:02:09 +0000 Subject: Add a test for this: (main): Don't stop processing arguments upon the first invalid one. --- tests/factor/basic | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) (limited to 'tests/factor') diff --git a/tests/factor/basic b/tests/factor/basic index 4ecd8a06a..b819c5ae5 100755 --- a/tests/factor/basic +++ b/tests/factor/basic @@ -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) + { + ref $e eq 'HASH' && exists $e->{EXIT} && $e->{EXIT} + and next Test; + } + + 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->{OUT} + and $e->{OUT} = "$arg1: $e->{OUT}\n" } } -- cgit v1.2.3-70-g09d2