X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04dont_break_c3.t;h=a7de9fc98967114bbfc22e67f53ec12faa182fdb;hb=ba42e08cae27496c32d44d3987ac566099140aaf;hp=58698699d7c0b4a95f93f709f825c4e142085493;hpb=e4c247399478922875e57b44a13403739164f5d6;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/04dont_break_c3.t b/t/04dont_break_c3.t
index 5869869..a7de9fc 100644
--- a/t/04dont_break_c3.t
+++ b/t/04dont_break_c3.t
@@ -1,9 +1,10 @@
-#!/usr/bin/perl -w
-#Simon Ilyushchenko, 12/05/05
-#Testing the case when we try to inject into @ISA a class that's already a parent of the target class.
 
 use strict;
 use Test::More tests => 2;
+use MRO::Compat;
+
+use lib qw(t/lib);
+use DBICTest; # do not remove even though it is not used
 
 {
 package AAA;
@@ -26,8 +27,8 @@ use base 'AAA';
 __PACKAGE__->inject_base( __PACKAGE__, 'DBIx::Class::Core' );
 }
 
-eval { Class::C3::calculateMRO('BBB'); };
+eval { mro::get_linear_isa('BBB'); };
 ok (! $@, "Correctly skipped injecting a direct parent of class BBB");
 
-eval { Class::C3::calculateMRO('CCC'); };
+eval { mro::get_linear_isa('CCC'); };
 ok (! $@, "Correctly skipped injecting an indirect parent of class BBB");