eval "use DBIx::Class::CDBICompat;";
plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
if $@;
-}
-
-BEGIN {
- eval "use DBD::SQLite";
- plan $@
- ? (skip_all => 'needs DBD::SQLite for testing')
- : (tests => 6);
+ plan tests => 6;
}
use lib 't/cdbi/testlib';
eval {
my $data = $data;
$data->{sheep} = 1;
- ok $bt = Film->insert($data), "Modified accessor - with
+ ok $bt = Film->insert($data), "Modified accessor - with
accessor";
isa_ok $bt, "Film";
};