CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-04-21 03:12:48 +02:00
Code Issues Projects Releases Wiki Activity

convert obsolescent tests to posix-style ones

Browse Source
This commit is contained in:
Jim Meyering
1997-07-10 16:16:17 +00:00
parent 990c0d0fad
commit 45eb103e4c
1 changed files with 29 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
tests/head/Test.pm
View File

@@ -11,30 +11,53 @@ my @tv = (
['idem-3', '', "a\n", "a\n", 0],
['basic-0-10', '',
"1\n2\n3\n4\n5\n6\n7\n8\n9\na\n",
"1\n2\n3\n4\n5\n6\n7\n8\n9\na\n", 0],
"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n",
"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n", 0],
['basic-0-09', '',
"1\n2\n3\n4\n5\n6\n7\n8\n9\n",
"1\n2\n3\n4\n5\n6\n7\n8\n9\n", 0],
['basic-0-11', '',
"1\n2\n3\n4\n5\n6\n7\n8\n9\na\nb\n",
"1\n2\n3\n4\n5\n6\n7\n8\n9\na\n", 0],
"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\nb\n",
"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n", 0],
['obs-0', '-1', "1\n2\n", "1\n", 0],
['obs-1', '-1c', "", "", 0],
['obs-2', '-1c', "12", "1", 0],
['obs-3', '-14c', "1234567890abcdefg", "1234567890abcd", 0],
);
sub test_vector
{
my $t;
my @new_tv;
foreach $t (@tv)
{
my ($test_name, $flags, $in, $exp, $ret) = @$t;
$Test::input_via{$test_name} = {REDIR => 0, FILE => 0, PIPE => 0}
if ($test_name =~ /^obs-/)
{
$test_name =~ s/^obs-/posix-/;
if ($flags =~ /-(\d+)$/)
{
$flags = "-n $1";
}
elsif ($flags =~ /-(\d+)([cbk])$/)
{
my $suffix = $2;
$suffix = '' if $suffix eq 'c';
$flags = "-c $1$suffix";
}
else
{
$flags = "-l $`";
}
}
push (@new_tv, [$test_name, $flags, $in, $exp, $ret]);
}
return @tv;
return @new_tv;
}
1;