diff options
author | Andrew Fresh <afresh1@openbsd.org> | 2014-07-09 03:30:00 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-09-22 10:53:35 -0600 |
commit | b15c1b561a4d9a6ec5ecdf68b69fda7ef7d09cb7 (patch) | |
tree | f03b44e2bab9c6f0479deffc6b72e5a27f456c28 /ext/POSIX/t | |
parent | c774046ba1377cc500a8a8fd88aa3cf810aad808 (diff) | |
download | perl-b15c1b561a4d9a6ec5ecdf68b69fda7ef7d09cb7.tar.gz |
PATCH: [perl #122252] international currency formatting (POSIX.1-2008)
Add the new portions of locale currency formatting that are specified in
POSIX.1-2008
The commiter (Karl Williamson) made the trivial indentation changes
asked for by H. Merijn Brand, and added a perldelta entry
Diffstat (limited to 'ext/POSIX/t')
-rw-r--r-- | ext/POSIX/t/posix.t | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index da4aba8370..398928c74b 100644 --- a/ext/POSIX/t/posix.t +++ b/ext/POSIX/t/posix.t @@ -8,7 +8,7 @@ BEGIN { } } -use Test::More tests => 111; +use Test::More tests => 117; use POSIX qw(fcntl_h signal_h limits_h _exit getcwd open read strftime write errno localeconv dup dup2 lseek access); @@ -359,8 +359,24 @@ SKIP: { } } - foreach (qw(int_frac_digits frac_digits p_cs_precedes p_sep_by_space - n_cs_precedes n_sep_by_space p_sign_posn n_sign_posn)) { + my @lconv = qw( + int_frac_digits frac_digits + p_cs_precedes p_sep_by_space + n_cs_precedes n_sep_by_space + p_sign_posn n_sign_posn + ); + + SKIP: { + skip('No HAS_LC_MONETARY_2008', 6) unless $Config{d_lc_monetary_2008}; + + push @lconv, qw( + int_p_cs_precedes int_p_sep_by_space + int_n_cs_precedes int_n_sep_by_space + int_p_sign_posn int_n_sign_posn + ); + } + + foreach (@lconv) { SKIP: { skip("localeconv has no result for $_", 1) unless exists $conv->{$_}; |