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

*** empty log message ***

Browse Source
This commit is contained in:
Jim Meyering
1997-07-10 16:19:13 +00:00
parent 45eb103e4c
commit 99f8939150
1 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/head/Test.pm
+20 -19
View File
@@ -32,32 +32,33 @@ my @tv = (
sub test_vector
{
my $t;
my @new_tv;
my @derived_tests;
foreach $t (@tv)
{
my ($test_name, $flags, $in, $exp, $ret) = @$t;
if ($test_name =~ /^obs-/)
# Derive equivalent, posix-style tests from the obsolescent ones.
next if $test_name !~ /^obs-/;
$test_name =~ s/^obs-/posix-/;
if ($flags =~ /-(\d+)$/)
{
$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 $`";
}
$flags = "-n $1";
}
push (@new_tv, [$test_name, $flags, $in, $exp, $ret]);
elsif ($flags =~ /-(\d+)([cbk])$/)
{
my $suffix = $2;
$suffix = '' if $suffix eq 'c';
$flags = "-c $1$suffix";
}
else
{
$flags = "-l $`";
}
push (@derived_tests, [$test_name, $flags, $in, $exp, $ret]);
}
return @new_tv;
return (@tv, @derived_tests);
}
1;