X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F13-constraint.t;h=4191fe51905ed13be390acf4738dbed3bbbc7501;hb=4a233f3019d2baa4bf2abee0c873c74d5cdf3a11;hp=b5b8f32c192efb401d539f2e0db69298280fb7f3;hpb=157270d0ffc57e57f311170323d88f30cb64f9f1;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/13-constraint.t b/t/cdbi/13-constraint.t index b5b8f32..4191fe5 100644 --- a/t/cdbi/13-constraint.t +++ b/t/cdbi/13-constraint.t @@ -1,16 +1,7 @@ use strict; +use warnings; use Test::More; -BEGIN { - eval "use DBIx::Class::CDBICompat;"; - if ($@) { - plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required'); - next; - } - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 23); -} - use lib 't/cdbi/testlib'; use Film; @@ -102,6 +93,8 @@ ok $fred, "Got fred"; is $freeaa && $freeaa->codirector, '2001-03-03', "Set the codirector"; } +done_testing; + __DATA__ use CGI::Untaint; @@ -116,4 +109,3 @@ sub _constrain_by_untaint { return 1; }); } -