+use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
+
use strict;
-use Test::More;
+use warnings;
-BEGIN {
- eval "use DBIx::Class::CDBICompat;";
- if ($@) {
- plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
- }
- plan tests => 22;
-}
+use Test::More;
use lib 't/cdbi/testlib';
use Film;
$blurb = Blurb->retrieve('Bad Taste');
is $blurb, undef, "Blurb has gone";
}
-
+
}
{
ok $host->info->delete;
$host->discard_changes;
ok !$host->info, 'relationships rechecked after discard_changes';
-}
\ No newline at end of file
+}
+
+done_testing;