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
|
use strict;
BEGIN { $^W = 1 }
use Test::More tests => 10;
use DateTime;
use DateTime::Format::Epoch;
my $dt = DateTime->new( year => 1970, month => 1, day => 1 );
my $f = DateTime::Format::Epoch->new( epoch => $dt, unit => 'nanoseconds' );
my $f_m = DateTime::Format::Epoch->new( epoch => $dt, unit => 'milliseconds' );
my $f_mu = DateTime::Format::Epoch->new( epoch => $dt, unit => 'microseconds' );
my $f_d = DateTime::Format::Epoch->new( epoch => $dt, unit => 10 );
isa_ok($f, 'DateTime::Format::Epoch' );
is($f->format_datetime($dt) + 0, 0*1e9, 'Epoch = 0');
isa_ok($f->format_datetime($dt), 'Math::BigInt');
$dt->set( hour => 1 );
is($f->format_datetime($dt) + 0, 3600*1e9, 'Epoch + 1hour');
$dt->set( day => 2, hour => 0 );
is($f->format_datetime($dt) + 0, 24*3600*1e9, 'Epoch + 1day');
$dt = DateTime->new( year => 2003, month => 4, day => 27,
hour => 21, minute => 9, second => 57,
nanosecond => 8e8, time_zone => 'Europe/Amsterdam' );
like($f->format_datetime($dt), qr/^\+?1051470597800000000/, '"now"');
is($f_m->format_datetime($dt), 1051470597800, '"now" (milli)');
is($f_mu->format_datetime($dt), 1051470597800000, '"now" (micro)');
is($f_d->format_datetime($dt), 10514705978, '"now" (deci)');
$dt = DateTime->new( year => 1969, month => 12, day => 22 );
is($f->format_datetime($dt), -10*24*3600*1e9, 'Epoch - 10days');
|
