|
Packit |
a4893e |
# $Id: format.t,v 1.1 2003/04/04 03:31:58 koschei Exp $
|
|
Packit |
a4893e |
use Test::More tests => 7;
|
|
Packit |
a4893e |
use strict;
|
|
Packit |
a4893e |
use warnings;
|
|
Packit |
a4893e |
use vars qw( $class );
|
|
Packit |
a4893e |
|
|
Packit |
a4893e |
BEGIN
|
|
Packit |
a4893e |
{
|
|
Packit |
a4893e |
$class = 'DateTime::Format::IBeat';
|
|
Packit |
a4893e |
use_ok $class;
|
|
Packit |
a4893e |
}
|
|
Packit |
a4893e |
use DateTime;
|
|
Packit |
a4893e |
|
|
Packit |
a4893e |
while (<DATA>)
|
|
Packit |
a4893e |
{
|
|
Packit |
a4893e |
my ($epoch, $expected) = split ' ';
|
|
Packit |
a4893e |
my $dt = DateTime->from_epoch( epoch => $epoch );
|
|
Packit |
a4893e |
my $got = $class->format_time( $dt );
|
|
Packit |
a4893e |
is( $got => $expected, "Testing $epoch => $expected" );
|
|
Packit |
a4893e |
}
|
|
Packit |
a4893e |
|
|
Packit |
a4893e |
pass "Didn't crash and burn."
|
|
Packit |
a4893e |
|
|
Packit |
a4893e |
__DATA__
|
|
Packit |
a4893e |
1049160602 @104
|
|
Packit |
a4893e |
1049237999 @999
|
|
Packit |
a4893e |
1049238000 @000
|
|
Packit |
a4893e |
1049238086 @000
|
|
Packit |
a4893e |
1049238087 @001
|