Resolve $rsrc instance duality on metadata traversal

[dbsrgits/DBIx-Class.git] / t / cdbi / 22-self_referential.t

diff --git a/t/cdbi/22-self_referential.t b/t/cdbi/22-self_referential.t
index 91fcb7f..a70f5d1 100644 (file)
--- a/t/cdbi/22-self_referential.t
+++ b/t/cdbi/22-self_referential.t
@@ -1,11 +1,10 @@
-use Test::More;
-
-BEGIN {
-  eval "use DBIx::Class::CDBICompat;";
-  plan $@ ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required') : (tests=> 2);
-}
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
 
 use strict;
+use warnings;
+
+use Test::More;
 
 use lib 't/cdbi/testlib';
 use Actor;
@@ -22,4 +21,4 @@ my @aliases = $first->aliases;
 is( scalar @aliases, 1, 'proper number of aliases' );
 is( $aliases[ 0 ]->name, 'Second', 'proper alias' );
 
-
+done_testing;