From 944b08f293cb23f6f7806902edb998dce9def105 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Thu, 30 Jan 1997 03:38:47 +0000
Subject: Do each test twice: get input via REDIR and PIPE.

---
 tests/tr/Test.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'tests/tr')

diff --git a/tests/tr/Test.pm b/tests/tr/Test.pm
index ad39c4ad7..7dc5c0203 100755
--- a/tests/tr/Test.pm
+++ b/tests/tr/Test.pm
@@ -81,9 +81,6 @@ my @tv = (
 ['rep-3',   q|'a[b*513]c' '1[x*]2'|,	'abc', '1x2', 0],
 ['esc',     q|'a\-z' 'A-Z'|,		'abc-z', 'AbcBC', 0],
 
-
-
-
 #
 # From Ross
 ['ross-0a', '-cs ' . q|'[:upper:]' 'X[Y*]'|,	'', '', 1],
@@ -100,6 +97,13 @@ my @tv = (
 
 sub test_vector
 {
+  my $t;
+  foreach $t (@tv)
+    {
+      my ($test_name, $flags, $in, $exp, $ret) = @$t;
+      $Test::input_via{$test_name} = {REDIR => 0, PIPE => 0};
+    }
+
   return @tv;
 }
 
-- 
cgit v1.2.3-70-g09d2