Add hash-based ISA lookup to RV of describe_class_methods

[dbsrgits/DBIx-Class.git] / xt / extra / c3_mro.t

diff --git a/xt/extra/c3_mro.t b/xt/extra/c3_mro.t
index 27a0341..398f51e 100644 (file)
--- 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;
@@ -59,6 +60,10 @@ check_ancestry($_) for (
   ref( $art->result_source ),
   ref( $art->result_source->resultset ),
   ref( $art->result_source->schema ),
+  ( map
+    { ref $art->result_source->schema->source($_) }
+    $art->result_source->schema->sources
+  ),
   qw( AAA BBB CCC ),
   ((! DBIx::Class::Optional::Dependencies->req_ok_for('cdbicompat') ) ? () : do {
     unshift @INC, 't/cdbi/testlib';