+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;";
- if ($@) {
- plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
- }
- plan tests => 5;
-}
+use Test::More;
use lib 't/cdbi/testlib';
-require Film;
-require Order;
+use Film;
+use Order;
Film->has_many(orders => 'Order');
Order->has_a(film => 'Film');
isa_ok $infilm, "Film";
is $infilm->id, $film->id, "Orders hasa Film";
+
+done_testing;