diff options
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/fold.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/uni/fold.t b/t/uni/fold.t index c84161406f..52417c1d79 100644 --- a/t/uni/fold.t +++ b/t/uni/fold.t @@ -97,13 +97,13 @@ foreach my $test_ref (@CF) { } my $test; + # A multi-char fold should not match just one char; + # e.g., ":ß:" !~ /:[_s]:/i + $test = qq[":$c:" !~ /:[_$f]:/i]; + ok eval $test, "$code - $name - $mapping - $type - $test"; + local $TODO = 'Multi-char fold in [character class]'; - TODO: { # e.g., ":ß:" !~ /:[_s]:/i # A multi-char fold should not - # match just one char - $test = qq[":$c:" !~ /:[_$f]:/i]; - ok eval $test, "$code - $name - $mapping - $type - $test"; - } TODO: { # e.g., ":ß:" =~ /:[_s]{2}:/i $test = qq[":$c:" =~ /:[_$f]{$f_length}:/i]; ok eval $test, "$code - $name - $mapping - $type - $test"; |