Revert "Fix handy.t for systems without $Config{d_isblank}."
authorKarl Williamson <public@khwilliamson.com>
Tue, 4 Feb 2014 02:52:54 +0000 (19:52 -0700)
committerKarl Williamson <public@khwilliamson.com>
Tue, 4 Feb 2014 03:43:33 +0000 (20:43 -0700)
This reverts commit d61570b1bbf3e2d76cc293690156fb361b054272.  This
commit was made unnecessary by commit
3f9a3488327f59f53c00adc132d91f19840e2a50.

ext/XS-APItest/t/handy.t

index b869ddb..41f5c7f 100644 (file)
@@ -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)");
-              }
             }
         }
     }