diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-02-03 19:52:54 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-02-03 20:43:33 -0700 |
| commit | 240a4b1129a0b1ee7eab430e28c7bd4f7486938a (patch) | |
| tree | 077b71f9c94b7db9c87b8e1f44d10f66a2ab45ef /ext | |
| parent | b8df125dc88244864ce3bf7ad4879ff00476bc41 (diff) | |
| download | perl-240a4b1129a0b1ee7eab430e28c7bd4f7486938a.tar.gz | |
Revert "Fix handy.t for systems without $Config{d_isblank}."
This reverts commit d61570b1bbf3e2d76cc293690156fb361b054272. This
commit was made unnecessary by commit
3f9a3488327f59f53c00adc132d91f19840e2a50.
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)"); - } } } } |