Remove input_via_stdin flag.

Do each test twice: get input via REDIR and PIPE.

diff --git a/tests/md5sum/Test.pm b/tests/md5sum/Test.pm
index 3ebc7c13d3adef7597c77f77218276c286ca478c..fa422888a0375740cc66bba7f8bc8a592e5e6d4d 100644 (file)
--- 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;