use Test::More tests => 5;
use strict;
use warnings;
use vars qw( $class );
BEGIN {
$class = 'DateTime::Format::IBeat';
use_ok $class;
}
while (<DATA>)
{
chomp;
my ($input, $expected) = split /\s*=>\s*/;
my $dt = $class->parse_datetime( $input );
my $got = $dt->datetime;
is( $got => $expected, "Parsing [$input] to <$expected>" );
my $formatted = $class->format_datetime( $dt );
is ( $formatted => $input, "Formatting [$expected] to <$input>" );
}
__DATA__
@d01.04.03 @765 => 2003-04-01T17:21:36
@d16.07.03 @000 => 2003-07-15T23:00:00