diff options
author | Jim Meyering <jim@meyering.net> | 1997-01-23 03:22:16 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1997-01-23 03:22:16 +0000 |
commit | c04fc60484b0b3db599ba94b4684b3231b8173f4 (patch) | |
tree | 5e216444c6837c43edcae36ca4b3638e929073f9 /tests/tail/Test.pm | |
parent | ffb626613a7049c52e47f06f9a5544d41c08cf3e (diff) | |
download | coreutils-c04fc60484b0b3db599ba94b4684b3231b8173f4.tar.xz |
.
Diffstat (limited to 'tests/tail/Test.pm')
-rwxr-xr-x | tests/tail/Test.pm | 30 |
1 files changed, 25 insertions, 5 deletions
diff --git a/tests/tail/Test.pm b/tests/tail/Test.pm index 05feee636..9d18af2cb 100755 --- a/tests/tail/Test.pm +++ b/tests/tail/Test.pm @@ -7,11 +7,31 @@ $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], +['obs-c1', '+2c', 'abcd', 'bcd', 0], +['obs-c2', '+8c', 'abcd', '', 0], +['obs-c3', '-1c', 'abcd', 'd', 0], +['obs-c4', '-9c', 'abcd', 'abcd', 0], +['obs-c5', '-12c', 'x' . ('y' x 12) . 'z', ('y' x 11) . 'z', 0], + +['obs-l1', '-1l', 'x', 'x', 0], +['obs-l2', '-1l', "x\ny\n", "y\n", 0], +['obs-l3', '-1l', "x\ny", "y", 0], +['obs-l4', '+1l', "x\ny\n", "x\ny\n", 0], +['obs-l5', '+2l', "x\ny\n", "y\n", 0], + +# Same as -l tests, but without the `l'. +['obs-1', '-1', 'x', 'x', 0], +['obs-2', '-1', "x\ny\n", "y\n", 0], +['obs-3', '-1', "x\ny", "y", 0], +['obs-4', '+1', "x\ny\n", "x\ny\n", 0], +['obs-5', '+2', "x\ny\n", "y\n", 0], + +# This is equivalent to +10c +['obsx-1', '+c', 'x' . ('y' x 10) . 'z', 'yyz', 0], +# This is equivalent to +10l +['obsx-2', '+l', "x\n" . ("y\n" x 10) . 'z', "y\ny\nz", 0], + +['err-1', '+2', "x\ny\n", "y\n", 0], ); sub test_vector |