diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/handy.t | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t index b869ddb10c..41f5c7faf6 100644 --- a/ext/XS-APItest/t/handy.t +++ b/ext/XS-APItest/t/handy.t @@ -40,8 +40,6 @@ if($Config{d_setlocale}) { $utf8_locale = find_utf8_locale(); } } -my $has_isblank = $Config{d_isblank}; # has C99, locale-specific blank checking - my %properties = ( # name => Lookup-property name @@ -179,13 +177,9 @@ foreach my $name (sort keys %properties) { } else { - TODO: { # UTF-8 locale works on full range 0-255 - local $TODO = 'locale-specific isblank not available' - unless $has_isblank || $function ne 'BLANK' || $char_name ne 'NO-BREAK SPACE'; my $truth = truth($matches && $i < 256); is ($ret, $truth, "is${function}_LC( $display_name ) == $truth ($utf8_locale)"); - } } } } @@ -221,12 +215,8 @@ foreach my $name (sort keys %properties) { fail($@); } else { - TODO: { - local $TODO = 'locale-specific isblank not available' - unless $has_isblank || $function ne 'BLANK' || $char_name ne 'NO-BREAK SPACE'; my $truth = truth($matches); is ($ret, $truth, "is${function}_LC_uvchr( $display_name ) == $truth ($utf8_locale)"); - } } } @@ -264,12 +254,8 @@ foreach my $name (sort keys %properties) { fail($@); } else { - TODO: { - local $TODO = 'locale-specific isblank not available' - unless $has_isblank || $function ne 'BLANK' || $char_name ne 'NO-BREAK SPACE'; my $truth = truth($matches); is ($ret, $truth, "is${function}_LC_utf8( $display_name ) == $truth ($utf8_locale)"); - } } } } |