[gitmo/Moose.git] / t / 030_roles / 032_roles_alias_methods.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Test::Exception;
use Moose::Meta::Class;
use Moose::Util;

use lib 't/lib', 'lib';

use Role::Child;


is_deeply(
    [ sort Role::Parent->meta->get_method_list ],
    [qw( meth1 meth2 )],
    'method list for Role::Parent'
);
is_deeply(
    [ sort Role::Child->meta->get_method_list ],
    [qw( aliased_meth1 meth1 meth2 )],
    'method list for Role::Child'
);
Commit	Line	Data
43f8ff1f	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 2;
	7	use Test::Exception;
	8	use Moose::Meta::Class;
	9	use Moose::Util;
	10
	11	use lib 't/lib', 'lib';
	12
	13	use Role::Child;
	14
43f8ff1f	15
0fe33940	16	is_deeply(
	17	[ sort Role::Parent->meta->get_method_list ],
	18	[qw( meth1 meth2 )],
	19	'method list for Role::Parent'
	20	);
	21	is_deeply(
	22	[ sort Role::Child->meta->get_method_list ],
	23	[qw( aliased_meth1 meth1 meth2 )],
	24	'method list for Role::Child'
	25	);