summaryrefslogtreecommitdiff
path: root/ext/XS-APItest
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2012-12-23 13:44:19 -0700
committerKarl Williamson <public@khwilliamson.com>2012-12-23 14:05:27 -0700
commit8ff203a1f6b1f9660ba978fda0dfd10a3d6d1dd8 (patch)
treeead0e744b1453dae0d4baef7cebb8fb06623ee34 /ext/XS-APItest
parent85bba25fe3bc5148e16eda74c253ecbcfc871984 (diff)
downloadperl-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.t6
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");
}
+ }
}
}