X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04dont_break_c3.t;h=d5cb5d1726a48a5becd5da80da0f57ba4d75f490;hb=4f507947b537abfbd940706b12d71f89aa2b23ff;hp=58698699d7c0b4a95f93f709f825c4e142085493;hpb=79fefe056c91c6e7d06ae980c348debe37cad5c9;p=dbsrgits%2FDBIx-Class.git diff --git a/t/04dont_break_c3.t b/t/04dont_break_c3.t index 5869869..d5cb5d1 100644 --- a/t/04dont_break_c3.t +++ b/t/04dont_break_c3.t @@ -4,6 +4,7 @@ use strict; use Test::More tests => 2; +use MRO::Compat; { 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");