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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
use strict;
use warnings;
use utf8;
use FindBin qw( $Bin );
use lib "$Bin/lib";
use T qw( run_tests_from_data test_datetime_object );
use Test::More 0.96;
use Test::Fatal;
use DateTime::Format::Strptime;
run_tests_from_data( \*DATA );
done_testing();
__DATA__
[Leading and trailing space]
%Y%m%d
20151222
skip round trip
year => 2015
month => 12
day => 22
[Olson time zone in upper case]
%Y %O
2015 AMERICA/NEW_YORK
skip round trip
year => 2015
time_zone_long_name => America/New_York
[Olson time zone in lower case]
%Y %O
2015 america/new_york
skip round trip
year => 2015
time_zone_long_name => America/New_York
[Olson time zone in random case]
%Y %O
2015 amERicA/new_YORK
skip round trip
year => 2015
time_zone_long_name => America/New_York
[Month name match is not too greedy]
%d%b%y
15Aug07
year => 2007
month => 8
day => 15
[Trailing text after match]
%Y-%m-%d
2016-01-13 in the afternoon
skip round trip
year => 2016
month => 1
day => 13
[Leading text before match]
%Y-%m-%d
in the afternoon of 2016-01-13
skip round trip
year => 2016
month => 1
day => 13
[%Y.suffix]
%Y
2016.suffix
skip round trip
year => 2016
[%Y-%m-%d.suffix]
%Y-%m-%d
2016-03-31.suffix
skip round trip
year => 2016
month => 3
day => 31
[prefix.year]
%Y
log.2016
skip round trip
year => 2016
[prefix.date]
%Y-%m-%d
log.2016-03-31
skip round trip
year => 2016
month => 3
day => 31
[prefix.year.suffix]
%Y
cron.2016.log
skip round trip
year => 2016
[prefix.year.suffix with strict]
%Y
cron.2016.log
skip round trip
strict
year => 2016
[prefix.date.suffix]
%Y-%m-%d
cron.2016-03-31.log
skip round trip
year => 2016
month => 3
day => 31
[prefix.date.suffix with strict]
%Y-%m-%d
cron.2016-03-31.log
skip round trip
strict
year => 2016
month => 3
day => 31
[ISO8601 + Z with Z at end ignored]
%Y%m%d%H%M%S
20161214233712Z
skip round trip
year => 2016
month => 12
day => 14
hour => 23
minute => 37
second => 12
|
