From 99f89391509238ea2ff64b359b6450c31832f234 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Thu, 10 Jul 1997 16:19:13 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/head/Test.pm | 39 ++++++++++++++++++++-------------------
 1 file 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+)$/)
 	{
-	  $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;