(test_vector): Do each (non-stdin-requiring) test three times.

1 files changed, 16 insertions, 2 deletions

diff --git a/tests/tail/Test.pm b/tests/tail/Test.pm
index 4ec332b7b..79d361beb 100755
--- a/tests/tail/Test.pm
+++ b/tests/tail/Test.pm
@@ -2,8 +2,6 @@ package Test;
 require 5.002;
 use strict;
 
-$Test::input_via_stdin = 1;
-
 my @tv = (
 # test name, options, input, expected output, expected return code
 #
@@ -72,6 +70,22 @@ my @tv = (
 
 sub test_vector
 {
+  my $t;
+  foreach $t (@tv)
+    {
+      my ($test_name, $flags, $in, $exp, $ret) = @$t;
+
+      # If you run the minus* tests with a FILE arg they'd hang.
+      if ($test_name =~ /^minus/)
+	{
+	  $Test::input_via{$test_name} = {REDIR => 0, PIPE => 0};
+	}
+      else
+	{
+	  $Test::input_via{$test_name} = {REDIR => 0, FILE => 0, PIPE => 0}
+	}
+    }
+
   return @tv;
 }