X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F96_is_deteministic_value.t;h=d71886ba600d9c8700b2daa8bbce1a7f8d2be641;hb=f2d11f4aef9b6c116351f0ee327a46551fcd190f;hp=6e04252dd9bb79968b42788413e36fd54755af09;hpb=561f003c5b971a8156d1932d34dad8c05d730fb4;p=dbsrgits%2FDBIx-Class.git diff --git a/t/96_is_deteministic_value.t b/t/96_is_deteministic_value.t index 6e04252..d71886b 100644 --- a/t/96_is_deteministic_value.t +++ b/t/96_is_deteministic_value.t @@ -1,14 +1,17 @@ use strict; use warnings; -# 6 tests +use Test::More; +use Test::Exception; -use Test::More qw(no_plan); use lib qw(t/lib); use DBICTest; -use DateTime; -use DateTime::Format::Strptime; -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'); @@ -55,11 +58,10 @@ my $cd_rs = $schema->resultset('CD'); { 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;