From eb8ea6eac558c6f63e813840a05697c634c98da0 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Thu, 30 Jul 1998 12:26:24 +0000 Subject: Avoid broken pipe message for tests that fail with usage errors. --- tests/cut/Test.pm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'tests/cut/Test.pm') diff --git a/tests/cut/Test.pm b/tests/cut/Test.pm index f140a344b..d5bdf0130 100755 --- a/tests/cut/Test.pm +++ b/tests/cut/Test.pm @@ -71,9 +71,14 @@ my @tv = ( ); -# Don't use a pipe for these tests to avoid `Broken pipe' message. -$Test::input_via{'y'} = {REDIR => 0, FILE => 0}; -$Test::input_via{'z'} = {REDIR => 0, FILE => 0}; +# Don't use a pipe for failing tests. Otherwise, sometimes they +# fail so early they'd evoke the `Broken pipe' message. +my $t; +foreach $t (@tv) + { + my ($test_name, $flags, $in, $exp, $ret) = @$t; + $Test::input_via{$test_name} = {REDIR => 0, FILE => 0} if $ret; + } sub test_vector { -- cgit v1.2.3-70-g09d2