From: Jim Meyering <jim@meyering.net>
Date: Sun, 7 Jun 1998 14:40:04 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: FILEUTILS-3_16q~87
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=500594433a7ba937f250887541eb51107ada55e6;p=thirdparty%2Fcoreutils.git

*** empty log message ***
---

diff --git a/tests/test/Test.pm b/tests/test/Test.pm
index b94c0c29eb..acf4972d14 100644
--- a/tests/test/Test.pm
+++ b/tests/test/Test.pm
@@ -81,6 +81,17 @@ sub test_vector
 	}
     }
 
+  # Generate a negated and a double-negated version of each test.
+  # There are a few exceptions.
+  my %not_invertible = map {$_ => 1} qw (1a inv-1 t1);
+  foreach $t (@tvec)
+    {
+      my ($test_name, $flags, $in, $exp, $ret) = @$t;
+      next if $not_invertible{$test_name};
+      push (@tv, ["N-$test_name", "! '(' $flags ')'", $in, $exp, 1 - $ret]);
+      push (@tv, ["NN-$test_name", "! ! '(' $flags ')'", $in, $exp, $ret]);
+    }
+
   return (@tv, @tvec);
 }