t/lib/TestAppBadlyImmutable.pm

   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