From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 30 May 2016 09:04:54 +0000 (+0200)
Subject: Expand the c3 mro test from d009cb7d
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=983f766d16b707dc31af556b7ccfb6d35c391522;p=dbsrgits%2FDBIx-Class-Historic.git

Expand the c3 mro test from d009cb7d

No functional changes
---

diff --git a/lib/DBIx/Class/AccessorGroup.pm b/lib/DBIx/Class/AccessorGroup.pm
index 5ac4651..7c6dece 100644
--- a/lib/DBIx/Class/AccessorGroup.pm
+++ b/lib/DBIx/Class/AccessorGroup.pm
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 
 use base qw/Class::Accessor::Grouped/;
+use mro 'c3';
+
 use Scalar::Util qw/weaken blessed/;
 use DBIx::Class::_Util 'fail_on_internal_call';
 use namespace::clean;
diff --git a/xt/extra/c3_mro.t b/xt/extra/c3_mro.t
index db60402..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;