2 #Simon Ilyushchenko, 12/05/05
3 #Testing the case when we try to inject into @ISA a class that's already a parent of the target class.
6 use Test::More tests => 2;
12 use base "DBIx::Class::Core";
18 #Injecting a direct parent.
19 __PACKAGE__->inject_base( __PACKAGE__, 'AAA' );
26 #Injecting an indirect parent.
27 __PACKAGE__->inject_base( __PACKAGE__, 'DBIx::Class::Core' );
30 eval { mro::get_linear_isa('BBB'); };
31 ok (! $@, "Correctly skipped injecting a direct parent of class BBB");
33 eval { mro::get_linear_isa('CCC'); };
34 ok (! $@, "Correctly skipped injecting an indirect parent of class BBB");