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
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 13;
BEGIN
{
use_ok('Rose::DateTime::Util');
use_ok('Rose::DateTime::Parser');
}
# Test to see if we can creat local DateTimes
eval { DateTime->now(time_zone => 'local') };
# Use UTC if we can't
Rose::DateTime::Util->time_zone('UTC') if($@);
my $default_parser = Rose::DateTime::Parser->new();
is($default_parser->time_zone, Rose::DateTime::Util->time_zone, 'time_zone()');
my $d1 = $default_parser->parse_date('1/1/2002');
my $d2 = Rose::DateTime::Util::parse_date('1/1/2002', 'floating');
ok($d1 == $d2, 'parse_date() 1');
my $floating_parser = Rose::DateTime::Parser->new(time_zone => 'floating');
$d1 = $floating_parser->parse_date('1/1/2002');
$d2 = Rose::DateTime::Util::parse_date('1/1/2002', 'floating');
ok($d1 == $d2, 'parse_date() 2');
is($default_parser->european, 0, 'european 1');
is($floating_parser->european, 0, 'european 2');
Rose::DateTime::Util->european_dates(1);
$d1 = $default_parser->parse_date('1/2/2002');
$d2 = Rose::DateTime::Util::parse_date('2/1/2002');
ok($d1 == $d2, 'parse_date() 3');
$default_parser->european(1);
$d1 = $default_parser->parse_date('2/1/2002');
$d2 = Rose::DateTime::Util::parse_date('2/1/2002');
ok($d1 == $d2, 'parse_date() 4');
Rose::DateTime::Util->european_dates(0);
$d1 = $default_parser->parse_date('2/1/2002');
$d2 = Rose::DateTime::Util::parse_date('1/2/2002');
ok($d1 == $d2, 'parse_date() 5');
Rose::DateTime::Util->european_dates(1);
$default_parser->european(undef);
$d1 = $default_parser->parse_date('2/1/2002');
$d2 = Rose::DateTime::Util::parse_date('2/1/2002');
ok($d1 == $d2, 'parse_date() 6');
$default_parser->european(0);
$d1 = $default_parser->parse_date('1/2/2002');
$d2 = Rose::DateTime::Util::parse_date('2/1/2002');
ok($d1 == $d2, 'parse_date() 7');
$d1 = $default_parser->parse_european_date('2/1/2002');
$d2 = Rose::DateTime::Util::parse_date('2/1/2002');
ok($d1 == $d2, 'parse_date() 8');
|
