mirror of
https://github.com/coreutils/coreutils.git
synced 2025-01-02 14:13:24 +08:00
52 lines
2.0 KiB
Perl
Executable File
52 lines
2.0 KiB
Perl
Executable File
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],
|
|
# 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],
|
|
);
|
|
|
|
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$/;
|
|
|
|
# Now that `wc FILE' (note, with no options) produces results
|
|
# different from `cat FILE|wc', disable those two `PIPE' tests.
|
|
$flags eq ''
|
|
and delete $Test::input_via{$test_name}->{PIPE};
|
|
}
|
|
|
|
return @tv;
|
|
}
|
|
|
|
1;
|