mirror of
https://https.git.savannah.gnu.org/git/coreutils.git
synced 2026-01-30 11:24:49 +00:00
47 lines
1.8 KiB
Perl
Executable File
47 lines
1.8 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$/;
|
|
}
|
|
|
|
return @tv;
|
|
}
|
|
|
|
1;
|