X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestAppPluginWithConstructor.pm;h=3d0d552fb6298f51b2cdae8d559ee1c17b461d74;hp=30818f8e1c6269f9b17b090464b521a086e4041b;hb=2c64bc24ad4b80b5827de92c2338330b9ca42488;hpb=6a8f85af6d0032d3f6aecc0ce9420ceb523910b2

diff --git a/t/lib/TestAppPluginWithConstructor.pm b/t/lib/TestAppPluginWithConstructor.pm
index 30818f8..3d0d552 100644
--- a/t/lib/TestAppPluginWithConstructor.pm
+++ b/t/lib/TestAppPluginWithConstructor.pm
@@ -1,14 +1,10 @@
 # See t/plugin_new_method_backcompat.t
 package TestAppPluginWithConstructor;
+use Test::More;
 use Test::Exception;
 use Catalyst qw/+TestPluginWithConstructor/;
 use Moose;
-BEGIN { extends qw/Catalyst Catalyst::Controller/ } # Ewww, FIXME.
-
-sub foo : Local {
-    my ($self, $c) = @_;
-    $c->res->body('foo');
-}
+extends qw/Catalyst/;
 
 __PACKAGE__->setup;
 our $MODIFIER_FIRED = 0;
@@ -18,5 +14,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;