t/format.t


1
2
3
4
5
6
7
8

#!perl 
use Test::More;
use DateTime;
use DateTime::Format::GeekTime;
 
my $dt=DateTime->new(year=>2010,month=>3,day=>8,
                     hour=>16,minute=>56,seconds=>23);
diag DateTime::Format::GeekTime->format_datetime($dt);