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
|
#!/perl
use strict;
use Test::More tests => 12;
use FindBin;
use lib $FindBin::Bin;
## ----------------------------------------------------------------------------------
## Test for availability of certain modules.
my $dt_ok;
BEGIN { $dt_ok = eval('use DateTime; 1') };
## ----------------------------------------------------------------------------------
## 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.
SKIP:
{
skip 'DateTime not available', 11 unless $dt_ok;
# June 5, 2003 at 1:58:09 pm
my $t = DateTime->new (year => 2003, month => 6, day => 5, hour => 13, minute => 58, second => 9, nanosecond => 987_654_321);
# time_format tests (5)
is time_format('yyyymmdd', $t), '20030605' => 'mm month';
is time_format('hhmmss', $t), '135809' => 'mm minute';
is time_format('MONTH', $t), uc $June => 'uc month name';
is time_format('weekday', $t), lc $Thursday => 'lc weekday';
is time_format('\QToday is\E yyyy/mm/dd hh:mm:ss.uuuuuu', $t), 'Today is 2003/06/05 13:58:09.987654' => 'Full timestamp';
is $time{'yyyymmdd', $t}, '20030605' => 'month: mm';
is $time{'hhmmss', $t}, '135809' => 'mm minute';
is $time{'MONTH', $t}, uc $June => 'uc month name';
is $time{'weekday', $t}, lc $Thursday => 'lc weekday';
is $time{'\QToday is\E yyyy/mm/dd hh:mm:ss.uuuuuu', $t}, 'Today is 2003/06/05 13:58:09.000000' => 'Full timestamp';
is "$time{'\QToday is\E yyyy/mm/dd hh:mm:ss.uuuuuu', $t}", 'Today is 2003/06/05 13:58:09.000000' => 'Full timestamp';
}
|
