diff options
author | Jim Meyering <jim@meyering.net> | 1997-01-23 03:02:17 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1997-01-23 03:02:17 +0000 |
commit | 3452006a5369ac84fe3157a87242b1f8cbed06e8 (patch) | |
tree | 0a632a6d7369771a0542a3d0da9c247afa3da4ab /tests/tail/Test.pm | |
parent | 161422b9b24e14b14bc06496b6249033f030815d (diff) | |
download | coreutils-3452006a5369ac84fe3157a87242b1f8cbed06e8.tar.xz |
.
Diffstat (limited to 'tests/tail/Test.pm')
-rwxr-xr-x | tests/tail/Test.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/tail/Test.pm b/tests/tail/Test.pm new file mode 100755 index 000000000..05feee636 --- /dev/null +++ b/tests/tail/Test.pm @@ -0,0 +1,22 @@ +package Test; +require 5.002; +use strict; + +$Test::input_via_stdin = 1; + +my @tv = ( +# test name, options, input, expected output, expected return code +# +['1', '+2c', 'abcd', 'bcd', 0], +['2', '+8c', 'abcd', '', 0], +['3', '-1c', 'abcd', 'd', 0], +['4', '-9c', 'abcd', 'abcd', 0], +['5', '-12c', 'x' . ('y' x 12) . 'z', ('y' x 11) . 'z', 0], +); + +sub test_vector +{ + return @tv; +} + +1; |