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