[p5sagit/p5-mst-13.2.git] / ext / mro / t / pluggable.t

#!perl

use strict;
use warnings;

use Test::More tests => 3;

{
  package A;
}

@B::ISA = 'A';
@C::ISA = 'A';
@D::ISA = qw(B C);

eval {mro::set_mro('D', 'c3')};

like $@, qr/Invalid mro name: 'c3'/;

require mro;

is_deeply(mro::get_linear_isa('D'), [qw(D B A C)], 'still dfs MRO');

mro::set_mro('D', 'c3');

is_deeply(mro::get_linear_isa('D'), [qw(D B C A)], 'c3 MRO');
Commit	Line	Data
b2685f0c	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');