From 240a4b1129a0b1ee7eab430e28c7bd4f7486938a Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 3 Feb 2014 19:52:54 -0700 Subject: [PATCH] Revert "Fix handy.t for systems without $Config{d_isblank}." This reverts commit d61570b1bbf3e2d76cc293690156fb361b054272. This commit was made unnecessary by commit 3f9a3488327f59f53c00adc132d91f19840e2a50. --- ext/XS-APItest/t/handy.t | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t index b869ddb..41f5c7f 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)"); - } } } } -- 2.7.4