[gitmo/Moose.git] / t / 300_immutable / 003_immutable_meta_class.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Test::Exception;

BEGIN {
    use_ok('Moose');
}

{
    package My::Meta;

    use Moose;

    extends 'Moose::Meta::Class';

    has 'meta_size' =>
        ( is  => 'rw',
          isa => 'Int',
        );
}

lives_ok { My::Meta->meta()->make_immutable() } 'can make a meta class immutable';
Commit	Line	Data
475042d0	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 2;
	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('Moose');
	11	}
	12
	13	{
	14	package My::Meta;
	15
	16	use Moose;
	17
	18	extends 'Moose::Meta::Class';
	19
	20	has 'meta_size' =>
	21	( is => 'rw',
	22	isa => 'Int',
	23	);
	24	}
	25
	26	lives_ok { My::Meta->meta()->make_immutable() } 'can make a meta class immutable';
	27