diff options
| author | Jim Meyering <jim@meyering.net> | 1997-01-30 03:38:47 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 1997-01-30 03:38:47 +0000 |
| commit | 944b08f293cb23f6f7806902edb998dce9def105 (patch) | |
| tree | 866bb3dfa92bc3a6878ca08e8614c300ca0f60b1 /tests/tr/Test.pm | |
| parent | 307b54a27373b353e833d467dba434881e3200d0 (diff) | |
| download | coreutils-944b08f293cb23f6f7806902edb998dce9def105.tar.xz | |
Do each test twice: get input via REDIR and PIPE.
Diffstat (limited to 'tests/tr/Test.pm')
| -rwxr-xr-x | tests/tr/Test.pm | 10 |
1 files changed, 7 insertions, 3 deletions
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; } |