14 plan skip_all => "I18N::Langinfo or POSIX unavailable"
15 if $Config{'extensions'} !~ m!\bI18N/Langinfo\b!;
17 my @constants = qw(ABDAY_1 DAY_1 ABMON_1 MON_1 RADIXCHAR AM_STR THOUSEP D_T_FMT D_FMT T_FMT);
19 plan tests => 1 + 3 * @constants;
21 use_ok('I18N::Langinfo', 'langinfo', @constants);
23 for my $constant (@constants) {
25 my $string = eval { langinfo(eval "$constant()") };
26 is( $@, '', "calling langinfo() with $constant" );
27 skip "returned string was empty, skipping next two tests", 2 unless $string;
28 ok( defined $string, "checking if the returned string is defined" );
29 cmp_ok( length($string), '>=', 1, "checking if the returned string has a positive length" );
35 # Background: the langinfo() (in C known as nl_langinfo()) interface
36 # is supposed to be a portable way to fetch various language/country
37 # (locale) dependent constants like "the first day of the week" or
38 # "the decimal separator". Give a portable (numeric) constant,
39 # get back a language-specific string. That's a comforting fantasy.
40 # Now tune in for blunt reality: vendors seem to have implemented for
41 # those constants whatever they felt like implementing. The UNIX
42 # standard says that one should have the RADIXCHAR constant for the
43 # decimal separator. Not so for many Linux and BSD implementations.
44 # One should have the CODESET constant for returning the current
45 # codeset (say, ISO 8859-1). Not so. So let's give up any real
46 # testing (leave the old testing code here for old times' sake,
56 AM_STR => qr{^(?:am|a\.m\.)$}i,
58 D_T_FMT => qr{^%a %b %[de] %H:%M:%S %Y$},
59 D_FMT => qr{^%m/%d/%y$},
60 T_FMT => qr{^%H:%M:%S$},
64 my @want = sort keys %want;
66 print "1..", scalar @want, "\n";
68 for my $i (1..@want) {
69 my $try = $want[$i-1];
70 eval { I18N::Langinfo->import($try) };
72 my $got = langinfo(&$try);
73 if (ref $want{$try} && $got =~ $want{$try} || $got eq $want{$try}) {
74 print qq[ok $i - $try is "$got"\n];
76 print qq[not ok $i - $try is "$got" not "$want{$try}"\n];
79 print qq[ok $i - Skip: $try not defined\n];