+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
+ package # hide from PAUSE
MyFilm;
use base 'DBIC::Test::SQLite';
__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,
$new_film = $film->copy(42);
is $new_film->id, 42, "copy() with new id";
+done_testing;