# $Id: parse.t,v 1.1 2003/04/04 03:31:58 koschei Exp $
use Test::More tests => 17;
use strict;
use warnings;
use vars qw( $class );
sub vdiag ($)
{
diag @_ if $ENV{TEST_VERBOSE};
}
BEGIN
{
$class = 'DateTime::Format::IBeat';
use_ok $class;
}
use DateTime;
while (<DATA>)
{
my ($ehour, $eminute, $esecond, $beats) = split ' ';
my $got = $class->parse_time( $beats );
vdiag "Testing $beats => $ehour:$eminute:$esecond";
cmp_ok ( $got->hour, '==', $ehour, "hour $ehour ($beats)" );
cmp_ok ( $got->minute, '==', $eminute, "min $eminute ($beats)" );
cmp_ok ( $got->second, '==', $esecond, "sec $esecond ($beats)" );
}
pass "Didn't crash and burn."
__DATA__
01 29 45 @104
22 58 33 @999
23 00 00 @000
23 01 26 @001
11 00 00 @500