[catagits/Catalyst-Runtime.git] / t / lib / TestAppBadlyImmutable.pm

package TestAppBadlyImmutable;
use Catalyst qw/+TestPluginWithConstructor/;
use Test::More;

__PACKAGE__->setup;

ok !__PACKAGE__->meta->is_immutable, 'Am not already immutable';
__PACKAGE__->meta->make_immutable( inline_constructor => 0 );
ok __PACKAGE__->meta->is_immutable, 'Am now immutable';

1;
Commit	Line	Data
81ef9afd	1	package TestAppBadlyImmutable;
	2	use Catalyst qw/+TestPluginWithConstructor/;
	3	use Test::More;
	4
	5	__PACKAGE__->setup;
	6
	7	ok !__PACKAGE__->meta->is_immutable, 'Am not already immutable';
	8	__PACKAGE__->meta->make_immutable( inline_constructor => 0 );
	9	ok __PACKAGE__->meta->is_immutable, 'Am now immutable';
	10
	11	1;
	12