14 my $file="../lib/unicore/CaseFolding.txt";
15 open my $fh,"<",$file or die "Failed to read '$file': $!";
18 my ($line,$comment)= split/\s+#\s+/, $_;
19 my ($cp,$type,@fc)=split/[\s;]+/,$line||'';
20 next unless $type and ($type eq 'F' or $type eq 'C');
25 push @str,$chr if $cpv<128 or $cpv>256;
27 push @str,"do{my \$c=$chr; utf8::upgrade(\$c); \$c}"
30 foreach my $str ( @str ) {
31 my $expr="$str=~/@fc/ix";
32 my $t=($cpv > 256 || $str=~/^do/) ? "unicode" : "latin";
34 qq[ok($expr,'$chr=~/@fc/ix - $comment ($t string)')];
35 $tests[-1]="TODO: { local \$TODO='[13:41] <BinGOs> cue *It is all Greek to me* joke.';\n$tests[-1] }"
36 if $cp eq '0390' or $cp eq '03B0';
40 eval join ";\n","plan tests=>".($count-1),@tests,"1"