X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2Fconstruct.t;h=1ce8160defc3b391173bbda456e703d0ea49b5bc;hb=4a233f3019d2baa4bf2abee0c873c74d5cdf3a11;hp=1ee7f14385ee8e11b7c5a629d1f5d9e18dc60208;hpb=50891152d0b24649bfd67bdba97feec86b11c064;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/construct.t b/t/cdbi/construct.t index 1ee7f14..1ce8160 100644 --- a/t/cdbi/construct.t +++ b/t/cdbi/construct.t @@ -1,12 +1,7 @@ use strict; +use warnings; use Test::More; -BEGIN { - eval "use DBIx::Class::CDBICompat;"; - plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@") - : (tests=> 5); -} - INIT { use lib 't/cdbi/testlib'; use Film; @@ -38,6 +33,8 @@ INIT { my $film = Foo->construct({ temp_thing => 23 }); - + ::is $film->temp_thing, 23, "construct sets temp columns"; } + +done_testing;