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
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 7;
BEGIN
{
use_ok('Rose::DateTime::Util');
use_ok('DateTime');
}
Rose::DateTime::Util->import('parse_date');
Rose::DateTime::Util->european_dates(undef); # re-init
my $d = parse_date('03-05-2003');
is($d->month, 3, 'locale 1');
DateTime->DefaultLocale('de');
$d = parse_date('03-05-2003');
is($d->month, 3, 'locale 2');
Rose::DateTime::Util->european_dates(undef); # re-init
$d = parse_date('03-05-2003');
is($d->month, 5, 'locale 3');
is(Rose::DateTime::Util->european_dates, 1, 'european_dates check');
DateTime->DefaultLocale('en_US');
Rose::DateTime::Util->european_dates(undef); # re-init
$d = parse_date('03-05-2003');
is($d->month, 3, 'locale 4');
|
