X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2Fcopy.t;h=f587ae03dcfe54fedaf8ef8b6bd7aa4cadf625ad;hb=0020e364ef2847a723dd8bc538ee1ce632fd734c;hp=a6e60bae03f3196b1e2cd2301827c01bf46a4020;hpb=97d61088b16ce8d2ffcbb4a2433509d65f7f7449;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/cdbi/copy.t b/t/cdbi/copy.t
index a6e60ba..f587ae0 100644
--- a/t/cdbi/copy.t
+++ b/t/cdbi/copy.t
@@ -1,18 +1,14 @@
+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 
+    package # hide from PAUSE
         MyFilm;
 
     use base 'DBIC::Test::SQLite';
@@ -39,3 +35,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;