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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!perl -w
# t/004_locale_defaults.t - check module dates in various formats
use Test::More tests => 48;
use DateTime::Format::Strptime;
use DateTime;
use DateTime::TimeZone;
use DateTime::Locale;
my $object = DateTime::Format::Strptime->new(
pattern => '%c',
diagnostic => 0,
on_error => 'undef',
);
my @tests = (
# Australian English
['en_AU', '%x', '31/12/1998'],
['en_AU', '%X', '12:34:56 PM'],
['en_AU', '%c', '31/12/1998 12:34:56 PM'],
# US English
['en_US', '%x', 'Dec 31, 1998'],
['en_US', '%X', '12:34:56 PM'],
['en_US', '%c', 'Dec 31, 1998 12:34:56 PM'],
# UK English
['en_GB', '%x', '31 Dec 1998'],
['en_GB', '%X', '12:34:56 PM'],
['en_GB', '%c', '31 Dec 1998 12:34:56'],
# French
#);my @tests = (
['fr', '%x', '31 dc. 98'],
['fr', '%X', '12:34:56'],
['fr', '%c', '31 dc. 98 12:34:56'],
);
foreach (@tests) {
my ($locale, $pattern, $data) = @$_;
$object->locale($locale);
$object->pattern($pattern);
my $datetime = $object->parse_datetime( $data );
if ($pattern eq '%x' or $pattern eq '%c') {
is($datetime->year, 1998, $locale. ' : ' . $pattern . ' : year' );
is($datetime->month, 12, $locale. ' : ' . $pattern . ' : month' );
is($datetime->day, 31, $locale. ' : ' . $pattern . ' : day' );
}
if ($pattern eq '%X' or $pattern eq '%c') {
is($datetime->hour, 12, $locale. ' : ' . $pattern . ' : hour' );
is($datetime->minute, 34, $locale. ' : ' . $pattern . ' : minute');
is($datetime->second, 56, $locale. ' : ' . $pattern . ' : second');
}
}
|
