From 7e73237bac16bce0cdd82527bd1cf0f729efeeba Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sun, 13 Jul 1997 19:45:14 +0000 Subject: . --- tests/wc/Test.pm | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100755 tests/wc/Test.pm (limited to 'tests/wc/Test.pm') diff --git a/tests/wc/Test.pm b/tests/wc/Test.pm new file mode 100755 index 000000000..0f7de7831 --- /dev/null +++ b/tests/wc/Test.pm @@ -0,0 +1,42 @@ +package Test; +require 5.002; +use strict; + +$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], +['a7', '-l', "x y", " 1\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], +); + +sub test_vector +{ + my $t; + foreach $t (@tv) + { + my ($test_name, $flags, $in, $exp, $ret) = @$t; + # By default, test both stdin-redirection and input from a pipe. + $Test::input_via{$test_name} = {REDIR => 0, PIPE => 0}; + + # But if test name ends with `-file', test only with file arg(s). + # FIXME: unfortunately, invoking wc like `wc FILE' makes it put + # FILE in the ouput -- and FILE is different depending on $srcdir. + $Test::input_via{$test_name} = {FILE => 0} + if $test_name =~ /-file$/; + } + + return @tv; +} + +1; -- cgit v1.2.3-54-g00ecf