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