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

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

use strict;
use warnings;

use Test::More;
use Test::Exception;


{
    package My::Meta;

    use Mouse;

    extends 'Mouse::Meta::Class';

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

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

done_testing;
Commit	Line	Data
16504b15	1	#!/usr/bin/perl
	2	# This is automatically generated by author/import-moose-test.pl.
	3	# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
	4	use t::lib::MooseCompat;
	5
	6	use strict;
	7	use warnings;
	8
	9	use Test::More;
	10	use Test::Exception;
	11
	12
	13	{
	14	package My::Meta;
	15
	16	use Mouse;
	17
	18	extends 'Mouse::Meta::Class';
	19
	20	has 'meta_size' => (
	21	is => 'rw',
	22	isa => 'Int',
	23	);
	24	}
	25
	26	lives_ok {
	27	My::Meta->meta()->make_immutable(debug => 0)
	28	} '... can make a meta class immutable';
	29
	30	done_testing;