summaryrefslogtreecommitdiff
path: root/ext/POSIX/t
diff options
context:
space:
mode:
authorAndrew Fresh <afresh1@openbsd.org>2014-07-09 03:30:00 -0700
committerKarl Williamson <khw@cpan.org>2014-09-22 10:53:35 -0600
commitb15c1b561a4d9a6ec5ecdf68b69fda7ef7d09cb7 (patch)
treef03b44e2bab9c6f0479deffc6b72e5a27f456c28 /ext/POSIX/t
parentc774046ba1377cc500a8a8fd88aa3cf810aad808 (diff)
downloadperl-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.t22
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->{$_};