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
|
#!/usr/bin/perl
use strict;
use warnings;
use boolean qw(true false);
use DateTime;
use DateTime::Format::Natural;
use DateTime::HiRes;
use DateTime::TimeZone;
use Test::More tests => 19;
eval { DateTime::Format::Natural->new(lang => 'en') };
ok(!$@, 'lang');
my @formats = qw(
d/m/y
mm/dd/yy
yyyy-mm-dd
);
foreach my $format (@formats) {
eval { DateTime::Format::Natural->new(format => $format) };
ok(!$@, "format $format");
}
my @bools = (
[ 1, '1' ],
[ 0, '0' ],
[ true, 'true' ],
[ false, 'false' ],
);
foreach my $bool (@bools) {
eval { DateTime::Format::Natural->new(prefer_future => $bool->[0]) };
ok(!$@, "prefer_future $bool->[1]");
}
foreach my $bool (@bools) {
eval { DateTime::Format::Natural->new(demand_future => $bool->[0]) };
ok(!$@, "demand_future $bool->[1]");
}
eval { DateTime::Format::Natural->new(prefer_future => true, demand_future => true) };
ok($@ =~ /mutually exclusive/, 'prefer_future/demand_future');
eval { DateTime::Format::Natural->new(time_zone => 'floating') };
ok(!$@, 'time_zone string');
eval { DateTime::Format::Natural->new(time_zone => DateTime::TimeZone->new(name => 'Europe/Zurich')) };
ok(!$@, 'time_zone object');
eval { DateTime::Format::Natural->new(daytime => {}) };
ok(!$@, 'daytime empty');
eval { DateTime::Format::Natural->new(daytime => { morning => 8, afternoon => 14, evening => 20 }) };
ok(!$@, 'daytime hours');
eval { DateTime::Format::Natural->new(datetime => DateTime->now) };
ok(!$@, 'datetime with DateTime object');
eval { DateTime::Format::Natural->new(datetime => DateTime::HiRes->now) };
ok(!$@, 'datetime with DateTime::HiRes object');
|
