diff options
| author | Jess Robinson <castaway@desert-island.me.uk> | 2013-02-08 12:30:05 +0000 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-02-09 20:54:45 -0700 |
| commit | 569f7fc5d4ec06501b46a72075ff434fe1bf4332 (patch) | |
| tree | 6b3b855017239faead78d324a7117899ea1bb25e /lib/version | |
| parent | d96f39bd4efb20c98c9664d264ae430b5904a2b8 (diff) | |
| download | perl-569f7fc5d4ec06501b46a72075ff434fe1bf4332.tar.gz | |
Enable perl core tests to pass when locale support is not available.
use locale - this will now die if $Config{d_setlocale} is not true.
All tests that use locale will skip if $Config{d_setlocale} is not true.
This enables us to pass tests on Android which uses ICU instead of locales.
The committer removed trailing white space
Diffstat (limited to 'lib/version')
| -rw-r--r-- | lib/version/t/07locale.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/version/t/07locale.t b/lib/version/t/07locale.t index 01b51a7e73..a2005f8a92 100644 --- a/lib/version/t/07locale.t +++ b/lib/version/t/07locale.t @@ -8,6 +8,7 @@ use File::Basename; use File::Temp qw/tempfile/; use POSIX qw/locale_h/; use Test::More tests => 7; +use Config; BEGIN { use_ok('version', 0.9901); @@ -15,6 +16,7 @@ BEGIN { SKIP: { skip 'No locale testing for Perl < 5.6.0', 6 if $] < 5.006; + skip 'No locale testing without d_setlocale', 6 if(!$Config{d_setlocale}); # test locale handling my $warning; local $SIG{__WARN__} = sub { $warning = $_[0] }; |