X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2Fcopy.t;h=6c079cc3a8bd323ebf4579e223f6eae7a7f61f3f;hb=4a233f3019d2baa4bf2abee0c873c74d5cdf3a11;hp=a6e60bae03f3196b1e2cd2301827c01bf46a4020;hpb=97d61088b16ce8d2ffcbb4a2433509d65f7f7449;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/copy.t b/t/cdbi/copy.t index a6e60ba..6c079cc 100644 --- a/t/cdbi/copy.t +++ b/t/cdbi/copy.t @@ -1,18 +1,13 @@ use strict; +use warnings; use Test::More; -BEGIN { - eval "use DBIx::Class::CDBICompat;"; - plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@") - : (tests=> 4); -} - INIT { use lib 't/cdbi/testlib'; } { - package # hide from PAUSE + package # hide from PAUSE MyFilm; use base 'DBIC::Test::SQLite'; @@ -39,3 +34,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;