diff options
author | Jim Meyering <jim@meyering.net> | 1997-07-10 16:19:13 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1997-07-10 16:19:13 +0000 |
commit | 99f89391509238ea2ff64b359b6450c31832f234 (patch) | |
tree | c1e420e5a1047f6c7b281936eb2484e59f1a88a8 /tests/head | |
parent | 45eb103e4ce39c3642bca6c735a910b15ff94b49 (diff) | |
download | coreutils-99f89391509238ea2ff64b359b6450c31832f234.tar.xz |
*** empty log message ***
Diffstat (limited to 'tests/head')
-rw-r--r-- | tests/head/Test.pm | 39 |
1 files changed, 20 insertions, 19 deletions
diff --git a/tests/head/Test.pm b/tests/head/Test.pm index 58aa358a0..8cb0a51c2 100644 --- a/tests/head/Test.pm +++ b/tests/head/Test.pm @@ -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+)$/) + { + $flags = "-n $1"; + } + elsif ($flags =~ /-(\d+)([cbk])$/) + { + my $suffix = $2; + $suffix = '' if $suffix eq 'c'; + $flags = "-c $1$suffix"; + } + else { - $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 = "-l $`"; } - push (@new_tv, [$test_name, $flags, $in, $exp, $ret]); + push (@derived_tests, [$test_name, $flags, $in, $exp, $ret]); } - return @new_tv; + return (@tv, @derived_tests); } 1; |