use strict;
use warnings;
-# 6 tests
-
use Test::More;
+use Test::Exception;
+
use lib qw(t/lib);
use DBICTest;
-use DateTime;
-eval "use DateTime::Format::Strptime";
-plan skip_all => 'DateTime::Format::Strptime required' if $@;
-plan 'no_plan';
-use Test::Exception;
+
+BEGIN {
+ require DBIx::Class;
+ plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('test_dt')
+ unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_dt');
+}
my $schema = DBICTest->init_schema();
my $artist_rs = $schema->resultset('Artist');
{
my $artist;
lives_ok {
- $artist = $artist_rs->search({ name => [ q/ some stupid names here/]})
+ $artist = $artist_rs->search({ name => [ qw(some stupid names here) ]})
->create({artistid => undef});
};
is($artist->name, undef);
}
-
-1;
+done_testing;