Missed one variant of the fold testing, noticed bu Hugo.

p4raw-id: //depot/perl@14134

diff --git a/lib/unifold.t b/lib/unifold.t
index d4e819e..76e1639 100644 (file)
--- a/lib/unifold.t
+++ b/lib/unifold.t
@@ -29,16 +29,17 @@ if (open(CF, $CF)) {
        $i++;
        my $a = pack("U0U*", hex $code);
        my $b = pack("U0U*", map { hex } split " ", $mapping);
-       my $t0 = ":$a:" =~ /:$a:/   ?  1 : 0;
-       my $t1 = ":$a:" =~ /:$a:/i  ?  1 : 0;
-       my $t2 = ":$a:" =~ /:[$a]:/i ? 1 : 0;
-       my $t3 = ":$a:" =~ /:$b:/i   ? 1 : 0;
-       my $t4 = ":$a:" =~ /:[$b]:/i ? 1 : 0;
-       my $t5 = ":$b:" =~ /:$a:/i   ? 1 : 0;
-       my $t6 = ":$b:" =~ /:[$a]:/i ? 1 : 0;
-       print $t0 && $t1 && $t2 && $t3 && $t4 && $t5 && $t6 ?
-           "ok $i \# - $code - $name - $mapping - - $status\n" :
-           "not ok $i \# - $code - $name - $mapping - $t0 $t1 $t2 $t3 $t4 $t5 $t6 - $status\n";
+       my $t0 = ":$a:" =~ /:$a:/    ? 1 : 0;
+       my $t1 = ":$a:" =~ /:$a:/i   ? 1 : 0;
+       my $t2 = ":$a:" =~ /:[$a]:/  ? 1 : 0;
+       my $t3 = ":$a:" =~ /:[$a]:/i ? 1 : 0;
+       my $t4 = ":$a:" =~ /:$b:/i   ? 1 : 0;
+       my $t5 = ":$a:" =~ /:[$b]:/i ? 1 : 0;
+       my $t6 = ":$b:" =~ /:$a:/i   ? 1 : 0;
+       my $t7 = ":$b:" =~ /:[$a]:/i ? 1 : 0;
+       print $t0 && $t1 && $t2 && $t3 && $t4 && $t5 && $t6 && $t7 ?
+           "ok $i \# - $code - $name - $mapping - $status\n" :
+           "not ok $i \# - $code - $name - $mapping - $status - $t0 $t1 $t2 $t3 $t4 $t5 $t6 $t7\n";
     }
 } else {
     die qq[$0: failed to open "$CF": $!\n];