private_path method for actions that returns a string suitable for use in forward...

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

diff --git a/t/lib/TestAppPluginWithConstructor.pm b/t/lib/TestAppPluginWithConstructor.pm
index 30818f8..36d8e16 100644 (file)
--- a/t/lib/TestAppPluginWithConstructor.pm
+++ b/t/lib/TestAppPluginWithConstructor.pm
@@ -1,5 +1,6 @@
 # See t/plugin_new_method_backcompat.t
 package TestAppPluginWithConstructor;
+use Test::More;
 use Test::Exception;
 use Catalyst qw/+TestPluginWithConstructor/;
 use Moose;
@@ -18,5 +19,8 @@ lives_ok {
 } 'Can apply method modifier';
 no Moose;
 
+our $IS_IMMUTABLE_YET = __PACKAGE__->meta->is_immutable;
+ok !$IS_IMMUTABLE_YET, 'I am not immutable yet';
+
 1;