X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fextra%2Fc3_mro.t;h=398f51e48e2c0ec4fc8c6ed248da250b9180ae07;hb=2603b49536d45448ac98cd8aa7c7393867cb0db2;hp=db604028124914250300869ba1634320ca4d6011;hpb=7f068248010455f821c215bf029517cb99aac3e5;p=dbsrgits%2FDBIx-Class.git diff --git a/xt/extra/c3_mro.t b/xt/extra/c3_mro.t index db60402..398f51e 100644 --- a/xt/extra/c3_mro.t +++ b/xt/extra/c3_mro.t @@ -12,14 +12,15 @@ my @global_ISA_tail = qw( DBIx::Class::Componentised Class::C3::Componentised DBIx::Class::AccessorGroup + DBIx::Class::MethodAttributes Class::Accessor::Grouped ); is( - mro::get_mro('DBIx::Class'), + mro::get_mro($_), 'c3', - 'Correct mro on base class DBIx::Class', -); + "Correct mro on base class '$_'", +) for grep { $_ =~ /^DBIx::Class/ } @global_ISA_tail; { package AAA;