*** empty log message ***

diff --git a/tests/head/Test.pm b/tests/head/Test.pm
index 58aa358a0a0765da36d1aeb83f2cadd4af8bb190..8cb0a51c233e42c6bcc9e702b351ed2acb90f3d1 100644 (file)
--- 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;