[gitmo/Moose.git] / t / 030_roles / 038_role_metaclass.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;
use Moose ();

BEGIN {

    package My::Meta::Role;
    use Moose;
    extends 'Moose::Meta::Role';

    has test_serial => (
        is      => 'ro',
        isa     => 'Int',
        default => 1,
    );
    no Moose;

}
{

    package MyRole;
    use metaclass 'Moose::Meta::Class' =>
        ( role_metaclass => 'My::Meta::Role' );
    use Moose::Role;

    no Moose::Role;

    package MyOtherRole;
    use Moose::Role;

    no Moose::Role;
};

isa_ok( MyRole->meta, 'My::Meta::Role' );
isa_ok( MyOtherRole->meta, 'Moose::Meta::Role' );

# my $role = MyRole->meta->create_anon_role;
# is( $role->test_serial, 1, "default value for the serial attribute" );
Commit	Line	Data
5ed3b694	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
f7e636ad	4	use Test::More tests => 2;
5ed3b694	5	use Moose ();
	6
	7	BEGIN {
	8
	9	package My::Meta::Role;
	10	use Moose;
	11	extends 'Moose::Meta::Role';
	12
	13	has test_serial => (
	14	is => 'ro',
	15	isa => 'Int',
	16	default => 1,
	17	);
	18	no Moose;
	19
	20	}
	21	{
	22
	23	package MyRole;
	24	use metaclass 'Moose::Meta::Class' =>
	25	( role_metaclass => 'My::Meta::Role' );
	26	use Moose::Role;
	27
	28	no Moose::Role;
f7e636ad	29
	30	package MyOtherRole;
	31	use Moose::Role;
	32
	33	no Moose::Role;
5ed3b694	34	};
	35
	36	isa_ok( MyRole->meta, 'My::Meta::Role' );
f7e636ad	37	isa_ok( MyOtherRole->meta, 'Moose::Meta::Role' );
5ed3b694	38
	39	# my $role = MyRole->meta->create_anon_role;
	40	# is( $role->test_serial, 1, "default value for the serial attribute" );