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