*** empty log message ***

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/test/Test.pm b/tests/test/Test.pm
index b94c0c29e..acf4972d1 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);
 }