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
|
#!/perl
use strict;
use Test::More tests => 7;
use FindBin;
use lib $FindBin::Bin;
use TimeFormat_MC;
use TimeFormat_Minute;
## ----------------------------------------------------------------------------------
## Test for availability of certain modules.
my $posix_ok = tf_module_check('POSIX');
my $tl_ok;
BEGIN { $tl_ok = eval ('use Time::Local; 1') }
## ----------------------------------------------------------------------------------
## Load our module.
BEGIN { $Time::Format::NOXS = 1 }
BEGIN { use_ok 'Time::Format', qw(%strftime) }
## ----------------------------------------------------------------------------------
## Begin tests.
my $t = 0;
if ($tl_ok)
{
$t = timelocal(9, 58, 13, 5, 5, 103); # June 5, 2003 at 1:58:09 pm
$t .= '.987654321';
}
if ($posix_ok)
{
SKIP:
{
skip 'Time::Local is not available', 6 unless $tl_ok;
# Be sure to use ONLY ansi standard strftime codes here,
# otherwise the tests will fail on somebody's system somewhere.
is $strftime{'%d',$t}, '05' => 'day of month';
is $strftime{'%m',$t}, '06' => 'Month number';
is $strftime{'%M',$t}, '58' => 'minute';
is $strftime{'%H',$t}, '13' => 'hour';
is $strftime{'%Y',$t}, '2003' => 'year';
tf_minute_sync; # avoid race condition
is $strftime{'%Y-%m-%d %H:%M'}, tf_cur_minute() => 'ymd+hm';
}
}
else
{
is $strftime{'%d',$t}, 'NO_POSIX' => 'day of month (dummy)';
is $strftime{'%m',$t}, 'NO_POSIX' => 'Month number (dummy)';
is $strftime{'%M',$t}, 'NO_POSIX' => 'minute (dummy)';
is $strftime{'%H',$t}, 'NO_POSIX' => 'hour (dummy)';
is $strftime{'%Y',$t}, 'NO_POSIX' => 'year (dummy)';
is $strftime{'%Y-%m-%d %H:%M'}, 'NO_POSIX' => 'ymd+hm (dummy)';
}
|
