uni/fold.t: Prevent [] from being optimized out
authorKarl Williamson <public@khwilliamson.com>
Sun, 5 Dec 2010 20:08:33 +0000 (13:08 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 8 Dec 2010 02:52:42 +0000 (18:52 -0800)
This test hasn't been testing bracketed char classes because a single
character class gets optimized out.

t/uni/fold.t

index f6f467c..0f71c80 100644 (file)
@@ -38,12 +38,13 @@ if (open(CF, $CF)) {
        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]:/  ? 1 : 0;
-       my $t3 = ":$a:" =~ /:[$a]:/i ? 1 : 0;
+       my $t2 = ":$a:" =~ /:[_$a]:/  ? 1 : 0; # Two chars in [] so doesn't get
+                                               # optimized to a non-charclass
+       my $t3 = ":$a:" =~ /:[_$a]:/i ? 1 : 0;
        my $t4 = ":$a:" =~ /:$b:/i   ? 1 : 0;
-       my $t5 = ":$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;
+       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";