diff options
Diffstat (limited to 'tests/wc')
-rwxr-xr-x | tests/wc/Test.pm | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/tests/wc/Test.pm b/tests/wc/Test.pm index 11607b035..3cc90b14c 100755 --- a/tests/wc/Test.pm +++ b/tests/wc/Test.pm @@ -6,22 +6,22 @@ $Test::input_via_stdin = 1; my @tv = ( # test flags input expected output expected return code -['a0', '-c', '', " 0\n", 0], -['a1', '-l', '', " 0\n", 0], -['a2', '-w', '', " 0\n", 0], -['a3', '-c', 'x', " 1\n", 0], -['a4', '-w', 'x', " 1\n", 0], -['a5', '-w', "x y\n", " 2\n", 0], -['a6', '-w', "x y\nz", " 3\n", 0], +['a0', '-c', '', "0\n", 0], +['a1', '-l', '', "0\n", 0], +['a2', '-w', '', "0\n", 0], +['a3', '-c', 'x', "1\n", 0], +['a4', '-w', 'x', "1\n", 0], +['a5', '-w', "x y\n", "2\n", 0], +['a6', '-w', "x y\nz", "3\n", 0], # Remember, -l counts *newline* bytes, not logical lines. -['a7', '-l', "x y", " 0\n", 0], -['a8', '-l', "x y\n", " 1\n", 0], -['a9', '-l', "x\ny\n", " 2\n", 0], -['b0', '', "", " 0 0 0\n", 0], -['b1', '', "a b\nc\n", " 2 3 6\n", 0], -['c0', '-L', "1\n12\n", " 2\n", 0], -['c1', '-L', "1\n123\n1\n", " 3\n", 0], -['c2', '-L', "\n123456", " 6\n", 0], +['a7', '-l', "x y", "0\n", 0], +['a8', '-l', "x y\n", "1\n", 0], +['a9', '-l', "x\ny\n", "2\n", 0], +['b0', '', "", "0 0 0\n", 0], +['b1', '', "a b\nc\n", "2 3 6\n", 0], +['c0', '-L', "1\n12\n", "2\n", 0], +['c1', '-L', "1\n123\n1\n", "3\n", 0], +['c2', '-L', "\n123456", "6\n", 0], ); sub test_vector |