diff options
| author | Jim Meyering <jim@meyering.net> | 1996-12-22 14:09:10 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 1996-12-22 14:09:10 +0000 |
| commit | 1b47ed271434cea6ebdb28f799b49b6c0b40dc99 (patch) | |
| tree | 50ad576e6d00d6853ecffb55191815033bda6f6e /tests/tr/Test.pm | |
| parent | dcd02c800890e720b5c000c2b6b3ee3e01a581f7 (diff) | |
| download | coreutils-1b47ed271434cea6ebdb28f799b49b6c0b40dc99.tar.xz | |
Use test_vector, not array @t.
Diffstat (limited to 'tests/tr/Test.pm')
| -rwxr-xr-x | tests/tr/Test.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/tr/Test.pm b/tests/tr/Test.pm index e49898970..b42c7088f 100755 --- a/tests/tr/Test.pm +++ b/tests/tr/Test.pm @@ -4,7 +4,7 @@ use strict; $Test::input_via_stdin = 1; -@Test::t = ( +my @tv = ( # test flags 1 or 2 strings input expected output expected return code # ['1', q|'abcd' '[]*]'|, 'abcd', ']]]]', 0], @@ -97,4 +97,9 @@ $Test::input_via_stdin = 1; ['R6', '-dc ' . q|'[:upper:]'|, '', '', 0], ); +sub test_vector +{ + return @tv; +} + 1; |