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