use strict;
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 'DBIx::Class::Test::SQLite';
+ use base 'DBIC::Test::SQLite';
use strict;
__PACKAGE__->set_table('Movies');
$new_film = $film->copy(42);
is $new_film->id, 42, "copy() with new id";
+done_testing;