From 56557d787a1ca4be5293244897f39b1c68cd87aa Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Thu, 30 Jan 1997 03:26:27 +0000 Subject: Remove input_via_stdin flag. Do each test twice: get input via REDIR and PIPE. --- tests/md5sum/Test.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'tests') diff --git a/tests/md5sum/Test.pm b/tests/md5sum/Test.pm index 3ebc7c13d..fa422888a 100644 --- a/tests/md5sum/Test.pm +++ b/tests/md5sum/Test.pm @@ -3,8 +3,6 @@ package Test; require 5.002; use strict; -$Test::input_via_stdin = 1; - sub test_vector { my @tvec = @@ -33,6 +31,7 @@ sub test_vector { my ($test_name, $flags, $in, $exp, $ret) = @$t; push (@tv, [$test_name, $flags, $in, "$exp -\n", $ret]); + $Test::input_via{$test_name} = {REDIR => 0, PIPE => 0}; } return @tv; -- cgit v1.2.3-70-g09d2