+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
+
use strict;
+use warnings;
+
use Test::More;
$| = 1;
-BEGIN {
- eval "use DBIx::Class::CDBICompat;";
- if ($@) {
- plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
- }
-}
-
-INIT {
- use lib 't/cdbi/testlib';
- use Film;
-}
-
-plan skip_all => "Object cache is turned off"
- if Film->isa("DBIx::Class::CDBICompat::NoObjectIndex");
-
-plan tests => 5;
+use lib 't/cdbi/testlib';
+use Film;
ok +Film->create({
Title => 'This Is Spinal Tap',
$film1->discard_changes;
}
+
+done_testing;