fold_grind.t: remove unnecessary tests

This is supposed to test weird combinations of things.  Tests like
    'ss' =~ /SS/i
aren't weird, and so can be skipped.

diff --git a/t/re/fold_grind.t b/t/re/fold_grind.t
index fed805f..0d640a0 100644 (file)
--- a/t/re/fold_grind.t
+++ b/t/re/fold_grind.t
@@ -244,7 +244,7 @@ my $current_locale = POSIX::setlocale( &POSIX::LC_ALL, "C") // "";
 if ($current_locale eq 'C') {
     use locale;
 
-    # Some locale implementations don't have the 128-255 characters all
+    # Some locale implementations don't have the range 128-255 characters all
     # mean nothing.  Skip the locale tests in that situation.
     for my $i (128 .. 255) {
         my $char = chr($i);
@@ -282,6 +282,10 @@ foreach my $test (sort { numerically } keys %tests) {
     @target = (ref $target) ? @$target : $target;
     @pattern = (ref $pattern) ? @$pattern : $pattern;
 
+    # We are testing just folds to/from a single character.  If our pairs
+    # happens to generate multi/multi, skip.
+    next if @target > 1 && @pattern > 1;
+
     # Have to convert non-utf8 chars to native char set
     @target = map { $_ > 255 ? $_ : ord latin1_to_native(chr($_)) } @target;
     @pattern = map { $_ > 255 ? $_ : ord latin1_to_native(chr($_)) } @pattern;