Your IP : 216.73.216.74

Current Path : /proc/thread-self/root/usr/share/doc/perl-DateTime-Format-Builder/t/
Upload File :
Current File : //proc/thread-self/root/usr/share/doc/perl-DateTime-Format-Builder/t/basic.t

use strict;
use warnings;

use Test::More 0.88;

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" );

}

done_testing();