basic.t   [plain text]

#!/usr/bin/perl -wT

use strict;

use Test::More tests => 4;

use DateTime::Format::Builder;


# Does new() work properly?
{
    eval { DateTime::Format::Builder->new('fnar') };
    ok(( $@ and $@ =~ /takes no param/), "Too many parameters exception" );

    my $obj = eval { DateTime::Format::Builder->new() };
    ok( !$@, "Created object" );
    isa_ok( $obj, 'DateTime::Format::Builder' );

    eval { $obj->parse_datetime( "whenever" ) };
    ok(( $@ and $@ =~ /No parser/), "No parser exception" );

}