diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-12-23 13:44:19 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-12-23 14:05:27 -0700 |
commit | 8ff203a1f6b1f9660ba978fda0dfd10a3d6d1dd8 (patch) | |
tree | ead0e744b1453dae0d4baef7cebb8fb06623ee34 /ext/XS-APItest | |
parent | 85bba25fe3bc5148e16eda74c253ecbcfc871984 (diff) | |
download | perl-8ff203a1f6b1f9660ba978fda0dfd10a3d6d1dd8.tar.gz |
ext/XS-APItest/t/handy.t: Work better on platforms sans proper locales
This was skipping a bunch of tests that should have been done when the
platform does not have properly working locales.
Diffstat (limited to 'ext/XS-APItest')
-rw-r--r-- | ext/XS-APItest/t/handy.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t index c739363134..19f78c9b06 100644 --- a/ext/XS-APItest/t/handy.t +++ b/ext/XS-APItest/t/handy.t @@ -132,7 +132,7 @@ foreach my $name (sort keys %properties) { } } - next unless defined $locale; + if (defined $locale) { use locale; $ret = truth eval "test_is${function}_LC($i)"; @@ -143,6 +143,7 @@ foreach my $name (sort keys %properties) { my $truth = truth($matches && $i < 128); is ($ret, $truth, "is${function}_LC( $display_name ) == $truth"); } + } } $ret = truth eval "test_is${function}_uni($i)"; @@ -177,7 +178,7 @@ foreach my $name (sort keys %properties) { is ($ret, $matches, "is${function}_utf8( $display_name ) == $matches"); } - next if $name eq 'vertws' || ! defined $locale; + if ($name ne 'vertws' && defined $locale) { use locale; $ret = truth eval "test_is${function}_LC_utf8('$char')"; @@ -188,6 +189,7 @@ foreach my $name (sort keys %properties) { my $truth = truth($matches && ($i < 128 || $i > 255)); is ($ret, $truth, "is${function}_LC_utf8( $display_name ) == $truth"); } + } } } |