Sophie

Sophie

distrib > Fedora > 18 > i386 > by-pkgid > 8de7170e6359d4354667a7e8f252b235 > files > 16

perl-DateTime-Format-Builder-0.8100-2.fc18.noarch.rpm

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