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
|
#!/perl
# time-as-string tests
use strict;
use Test::More tests => 61;
use lib 'blib/lib', 'blib/arch';
## ----------------------------------------------------------------------------------
## Load our module.
BEGIN { $Time::Format::NOXS = 1 }
BEGIN { use_ok 'Time::Format', qw(time_format %time) }
## ----------------------------------------------------------------------------------
## Get day/month names in current locale; fallback to English (sorry!).
my ($Thursday, $Thu, $June, $Jun);
my $lc_supported = 1;
$lc_supported = 0 if $^O eq 'openbsd';
if (!$lc_supported || !eval
{
require I18N::Langinfo;
I18N::Langinfo->import(qw(langinfo DAY_3 MON_12 DAY_5 ABDAY_5 MON_6 ABMON_6));
($Thursday, $Thu, $June, $Jun) = map ucfirst lc langinfo($_), (DAY_5(), ABDAY_5(), MON_6(), ABMON_6());
1;
})
{
diag 'Cannot determine locale; falling back to English.';
($Thursday, $Thu, $June, $Jun) = qw(Thursday Thu June Jun);
}
## ----------------------------------------------------------------------------------
## Begin tests.
# June 5, 2003 at 1:58:09 pm
my $d = '2003-06-05';
my $t = '13:58:09';
my $d_t = "$d $t";
my $dTt = "${d}T$t";
my $dt = "$d$t";
my $dtx;
($dtx = $dt) =~ tr/-://d; # no separators at all
# Date/time strings with Z (UTC indicator) appended. Per CPAN RT bug 55630.
my ($tz, $d_tz, $dTtz, $dtz, $dtxz);
($tz, $d_tz, $dTtz, $dtz, $dtxz) = map {$_ . 'Z'} ($t, $d_t, $dTt, $dt, $dtx);
my $out;
my $err;
# time_format tests (22 * 2)
is time_format('yyyymmdd', $d), '20030605' => 'ymd f() d only';
is time_format('yyyymmdd', $t), '19691231' => 'ymd f() t only';
is time_format('yyyymmdd', $d_t), '20030605' => 'ymd f() d&t';
is time_format('yyyymmdd', $dTt), '20030605' => 'ymd f() d T t';
is time_format('yyyymmdd', $dt), '20030605' => 'ymd f() dt';
is time_format('yyyymmdd', $dtx), '20030605' => 'ymd f() dt-nosep';
is time_format('yyyymmdd', $tz), '19691231' => 'ymd f() t only (z)';
is time_format('yyyymmdd', $d_tz), '20030605' => 'ymd f() d&t (z)';
is time_format('yyyymmdd', $dTtz), '20030605' => 'ymd f() d T t (z)';
is time_format('yyyymmdd', $dtz), '20030605' => 'ymd f() dt (z)';
is time_format('yyyymmdd', $dtxz), '20030605' => 'ymd f() dt-nosep (z)';
is time_format('hhmmss', $d), '000000' => 'hms f() d only';
is time_format('hhmmss', $t), '135809' => 'hms f() t only';
is time_format('hhmmss', $d_t), '135809' => 'hms f() d&t';
is time_format('hhmmss', $dTt), '135809' => 'hms f() d T t';
is time_format('hhmmss', $dt), '135809' => 'hms f() dt';
is time_format('hhmmss', $dtx), '135809' => 'hms f() dt-nosep';
is time_format('hhmmss', $tz), '135809' => 'hms f() t only (zz)';
is time_format('hhmmss', $d_tz), '135809' => 'hms f() d&t (zz)';
is time_format('hhmmss', $dTtz), '135809' => 'hms f() d T t (zz)';
is time_format('hhmmss', $dtz), '135809' => 'hms f() dt (zz)';
is time_format('hhmmss', $dtxz), '135809' => 'hms f() dt-nosep (zz)';
is $time{'yyyymmdd', $d}, '20030605' => 'ymd %{} d only';
is $time{'yyyymmdd', $t}, '19691231' => 'ymd %{} t only';
is $time{'yyyymmdd', $d_t}, '20030605' => 'ymd %{} d&t';
is $time{'yyyymmdd', $dTt}, '20030605' => 'ymd %{} d T t';
is $time{'yyyymmdd', $dt}, '20030605' => 'ymd %{} dt';
is $time{'yyyymmdd', $dtx}, '20030605' => 'ymd %{} dt-nosep';
is $time{'yyyymmdd', $tz}, '19691231' => 'ymd %{} t only (z)';
is $time{'yyyymmdd', $d_tz}, '20030605' => 'ymd %{} d&t (z)';
is $time{'yyyymmdd', $dTtz}, '20030605' => 'ymd %{} d T t (z)';
is $time{'yyyymmdd', $dtz}, '20030605' => 'ymd %{} dt (z)';
is $time{'yyyymmdd', $dtxz}, '20030605' => 'ymd %{} dt-nosep (z)';
is $time{'hhmmss', $d}, '000000' => 'hms %{} d only';
is $time{'hhmmss', $t}, '135809' => 'hms %{} t only';
is $time{'hhmmss', $d_t}, '135809' => 'hms %{} d&t';
is $time{'hhmmss', $dTt}, '135809' => 'hms %{} d T t';
is $time{'hhmmss', $dt}, '135809' => 'hms %{} dt';
is $time{'hhmmss', $dtx}, '135809' => 'hms %{} dt-nosep';
is $time{'hhmmss', $tz}, '135809' => 'hms %{} t only (z)';
is $time{'hhmmss', $d_tz}, '135809' => 'hms %{} d&t (z)';
is $time{'hhmmss', $dTtz}, '135809' => 'hms %{} d T t (z)';
is $time{'hhmmss', $dtz}, '135809' => 'hms %{} dt (z)';
is $time{'hhmmss', $dtxz}, '135809' => 'hms %{} dt-nosep (z)';
# Whatever the local time zone, 'Z' times should be reported as UTC. (5 * 2)
is time_format('tz', $tz), 'UTC' => 'tzone f() t only (z)';
is time_format('tz', $d_tz), 'UTC' => 'tzone f() d&t (z)';
is time_format('tz', $dTtz), 'UTC' => 'tzone f() d T t (z)';
is time_format('tz', $dtz), 'UTC' => 'tzone f() dt (z)';
is time_format('tz', $dtxz), 'UTC' => 'tzone f() dt-nosep (z)';
is $time{'tz', $tz}, 'UTC' => 'tzone %{} t only (z)';
is $time{'tz', $d_tz}, 'UTC' => 'tzone %{} d&t (z)';
is $time{'tz', $dTtz}, 'UTC' => 'tzone %{} d T t (z)';
is $time{'tz', $dtz}, 'UTC' => 'tzone %{} dt (z)';
is $time{'tz', $dtxz}, 'UTC' => 'tzone %{} dt-nosep (z)';
# Reported bug case:
eval { $out = time_format('yyyy.mm.dd', '2007.12.31'); };
is $@, '', 'December bug I: no error';
is $out, '2007.12.31' => 'December bug I';
eval { $out = time_format('yyyy.mm.dd', '2000.01.01'); };
is $@, '', 'December bug II: no error';
is $out, '2000.01.01' => 'December bug II';
eval { $out = time_format('yyyy.mm.dd', '1968.01.01'); };
is $@, '', 'December bug III: no error';
is $out, '1968.01.01' => 'December bug III';
|
