t/04dont_break_c3.t

   1 #!/usr/bin/perl -w
   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.
   4
   5 use strict;
   6 use Test::More tests => 2;
   7 use MRO::Compat;
   8
   9 {
  10 package AAA;
  11
  12 use base "DBIx::Class::Core";
  13
  14 package BBB;
  15
  16 use base 'AAA';
  17
  18 #Injecting a direct parent.
  19 __PACKAGE__->inject_base( __PACKAGE__, 'AAA' );
  20
  21
  22 package CCC;
  23
  24 use base 'AAA';
  25
  26 #Injecting an indirect parent.
  27 __PACKAGE__->inject_base( __PACKAGE__, 'DBIx::Class::Core' );
  28 }
  29
  30 eval { mro::get_linear_isa('BBB'); };
  31 ok (! $@, "Correctly skipped injecting a direct parent of class BBB");
  32
  33 eval { mro::get_linear_isa('CCC'); };
  34 ok (! $@, "Correctly skipped injecting an indirect parent of class BBB");