ext/mro/t/pluggable.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7
   8 {
   9   package A;
  10 }
  11
  12 @B::ISA = 'A';
  13 @C::ISA = 'A';
  14 @D::ISA = qw(B C);
  15
  16 eval {mro::set_mro('D', 'c3')};
  17
  18 like $@, qr/Invalid mro name: 'c3'/;
  19
  20 require mro;
  21
  22 is_deeply(mro::get_linear_isa('D'), [qw(D B A C)], 'still dfs MRO');
  23
  24 mro::set_mro('D', 'c3');
  25
  26 is_deeply(mro::get_linear_isa('D'), [qw(D B C A)], 'c3 MRO');