X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fextra%2Fc3_mro.t;h=fad386a8755dc458bfc418426cc677cdf61807f5;hb=0130575a1a5ad9249a5cdc705c043286fabdf32c;hp=27a034145de9c24f09aad044bd8a6d08f71c6d49;hpb=5e0eea3522876a30453af24097507198bbbc9409;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/xt/extra/c3_mro.t b/xt/extra/c3_mro.t
index 27a0341..fad386a 100644
--- a/xt/extra/c3_mro.t
+++ b/xt/extra/c3_mro.t
@@ -16,10 +16,10 @@ my @global_ISA_tail = qw(
 );
 
 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 +59,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';