B::Hooks::EndOfScope eats exceptions inside the on_scope_end block. Nyomnyomnyom...

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

diff --git a/t/lib/TestAppBadlyImmutable.pm b/t/lib/TestAppBadlyImmutable.pm
new file mode 100644 (file)
index 0000000..2beefe6
--- /dev/null
+++ b/t/lib/TestAppBadlyImmutable.pm
@@ -0,0 +1,12 @@
+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;
+