diff options
| -rw-r--r-- | ext/XS-APItest/t/handy.t | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t index 19f78c9b06..ffa2f174fc 100644 --- a/ext/XS-APItest/t/handy.t +++ b/ext/XS-APItest/t/handy.t @@ -133,16 +133,16 @@ foreach my $name (sort keys %properties) { } if (defined $locale) { - use locale; + use locale; - $ret = truth eval "test_is${function}_LC($i)"; - if ($@) { - fail($@); - } - else { - my $truth = truth($matches && $i < 128); - is ($ret, $truth, "is${function}_LC( $display_name ) == $truth"); - } + $ret = truth eval "test_is${function}_LC($i)"; + if ($@) { + fail($@); + } + else { + my $truth = truth($matches && $i < 128); + is ($ret, $truth, "is${function}_LC( $display_name ) == $truth"); + } } } @@ -179,16 +179,16 @@ foreach my $name (sort keys %properties) { } if ($name ne 'vertws' && defined $locale) { - use locale; + use locale; - $ret = truth eval "test_is${function}_LC_utf8('$char')"; - if ($@) { - fail($@); - } - else { - my $truth = truth($matches && ($i < 128 || $i > 255)); - is ($ret, $truth, "is${function}_LC_utf8( $display_name ) == $truth"); - } + $ret = truth eval "test_is${function}_LC_utf8('$char')"; + if ($@) { + fail($@); + } + else { + my $truth = truth($matches && ($i < 128 || $i > 255)); + is ($ret, $truth, "is${function}_LC_utf8( $display_name ) == $truth"); + } } } } |