X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F68-inflate_has_a.t;h=fbb42335db892bba360c929b623f1f5a62dd7b9b;hb=ede573ac79427d9905685866142e19074478994c;hp=0019e293d049708c5ab7f24246ebd5a086ce7b6d;hpb=50891152d0b24649bfd67bdba97feec86b11c064;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/68-inflate_has_a.t b/t/cdbi/68-inflate_has_a.t index 0019e29..fbb4233 100644 --- a/t/cdbi/68-inflate_has_a.t +++ b/t/cdbi/68-inflate_has_a.t @@ -3,15 +3,9 @@ use warnings; use Test::More; BEGIN { - eval "use DBIx::Class::CDBICompat;"; - plan skip_all => "Class::Trigger and DBIx::ContextualFetch required" + eval "use DBIx::Class::CDBICompat; use DateTime 0.55; use Clone;"; + plan skip_all => "Clone, DateTime 0.55, Class::Trigger and DBIx::ContextualFetch required" if $@; - - eval { require DateTime }; - plan skip_all => "Need DateTime for inflation tests" if $@; - - eval { require Clone }; - plan skip_all => "Need Clone for CDBICompat inflation tests" if $@; } plan tests => 6; @@ -41,7 +35,7 @@ my $now = DateTime->now; $cd->year( $now ); $cd->update; -($cd) = $schema->resultset("CD")->search( year => $now->year ); +($cd) = $schema->resultset("CD")->search({ year => $now->year }); is( $cd->year->year, $now->year, 'deflate ok' ); # re-test using alternate deflate syntax @@ -62,6 +56,6 @@ $now = DateTime->now; $cd->year( $now ); $cd->update; -($cd) = $schema->resultset("CD")->search( year => $now->year ); +($cd) = $schema->resultset("CD")->search({ year => $now->year }); is( $cd->year->year, $now->year, 'deflate ok' );