[gitmo/Moose.git] / t / immutable / immutable_meta_class.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;


{
    package My::Meta;

    use Moose;

    extends 'Moose::Meta::Class';

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

is( exception {
    My::Meta->meta()->make_immutable(debug => 0)
}, undef, '... can make a meta class immutable' );

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