blob: 9832a5dbed657b184f30e3484dc0241eb95e1e14 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!./perl
BEGIN {
chdir 't' if -d 't';
require Config; import Config;
if ($Config{'extensions'} !~ m!\bI18N/Langinfo\b! ||
$Config{'extensions'} !~ m!\bPOSIX\b!)
{
print "1..0 # skip: I18N::Langinfo or POSIX unavailable\n";
exit 0;
}
}
use I18N::Langinfo qw(langinfo ABDAY_1 DAY_1 ABMON_1 MON_1 RADIXCHAR);
use POSIX qw(setlocale LC_ALL);
setlocale(LC_ALL, "C");
print "1..5\n";
print "not " unless langinfo(ABDAY_1) eq "Sun";
print "ok 1\n";
print "not " unless langinfo(DAY_1) eq "Sunday";
print "ok 2\n";
print "not " unless langinfo(ABMON_1) eq "Jan";
print "ok 3\n";
print "not " unless langinfo(MON_1) eq "January";
print "ok 4\n";
print "not " unless langinfo(RADIXCHAR) eq ".";
print "ok 5\n";
|