X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2Fcopy.t;h=2741aadaf8bd06309c73f3135dee49f0e08bb5fc;hb=73f54e275e7dc98b4a082475ff252afdbeca182f;hp=2550619e2a756c517d484c583acd9ead996015b1;hpb=8273e845426f0187b4ad6c4a1b42286fa09a648f;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/copy.t b/t/cdbi/copy.t index 2550619..2741aad 100644 --- a/t/cdbi/copy.t +++ b/t/cdbi/copy.t @@ -1,15 +1,12 @@ +BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } +use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat'; + use strict; -use Test::More; +use warnings; -BEGIN { - eval "use DBIx::Class::CDBICompat;"; - plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@") - : (tests=> 4); -} +use Test::More; -INIT { - use lib 't/cdbi/testlib'; -} +use lib 't/cdbi/testlib'; { package # hide from PAUSE @@ -39,3 +36,4 @@ isnt $new_film->id, $film->id, "copy() gets new primary key"; $new_film = $film->copy(42); is $new_film->id, 42, "copy() with new id"; +done_testing;