Merge the relationship resolution rework

[dbsrgits/DBIx-Class.git] / t / cdbi / copy.t

diff --git a/t/cdbi/copy.t b/t/cdbi/copy.t
index 2550619..b122781 100644 (file)
--- 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
@@ -21,6 +18,11 @@ INIT {
     __PACKAGE__->set_table('Movies');
     __PACKAGE__->columns(All => qw(id title));
 
+    # Disables the implicit autoinc-on-non-supplied-pk behavior
+    # (and the warning that goes with it)
+    # This is the same behavior as it was pre 0.082900
+    __PACKAGE__->column_info('id')->{is_auto_increment} = 0;
+
     sub create_sql {
         return qq{
                 id              INTEGER PRIMARY KEY AUTOINCREMENT,
@@ -39,3 +41,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;