1use strict; 2BEGIN { $^W = 1 } 3 4use Test::More tests => 7; 5use DateTime; 6use DateTime::Format::Epoch; 7 8my $dt = DateTime->new( year => 1970, month => 1, day => 1 ); 9 10my $f = DateTime::Format::Epoch->new( epoch => $dt ); 11my $f_float = DateTime::Format::Epoch->new( epoch => $dt, type => 'float' ); 12 13isa_ok($f, 'DateTime::Format::Epoch' ); 14 15is($f->format_datetime($dt), 0, 'Epoch = 0'); 16 17$dt->set( hour => 1 ); 18is($f->format_datetime($dt), 3600, 'Epoch + 1hour'); 19 20$dt->set( day => 2, hour => 0 ); 21is($f->format_datetime($dt), 24*3600, 'Epoch + 1day'); 22 23$dt = DateTime->new( year => 2003, month => 4, day => 27, 24 hour => 21, minute => 9, second => 57, 25 nanosecond => 8e8, time_zone => 'Europe/Amsterdam' ); 26 27is($f->format_datetime($dt), 1051470597, '"now"'); 28is($f_float->format_datetime($dt), 1051470597.8, '"now" (float)'); 29 30$dt = DateTime->new( year => 1969, month => 12, day => 22 ); 31is($f->format_datetime($dt), -10*24*3600, 'Epoch - 10days'); 32