6 use Test::More tests => 3;
16 eval {mro::set_mro('D', 'c3')};
18 like $@, qr/Invalid mro name: 'c3'/;
22 is_deeply(mro::get_linear_isa('D'), [qw(D B A C)], 'still dfs MRO');
24 mro::set_mro('D', 'c3');
26 is_deeply(mro::get_linear_isa('D'), [qw(D B C A)], 'c3 MRO');