X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fplugin_new_method_backcompat.t;h=a5a2e8a79a091c15714bd8fc225cccb0081aef39;hb=bca6bdad36357e75b0efdcd92bc25f32c07182cd;hp=d7778b8c12291cc676fd4f518c37e09b8f4a6ed7;hpb=6a8f85af6d0032d3f6aecc0ce9420ceb523910b2;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/plugin_new_method_backcompat.t b/t/plugin_new_method_backcompat.t
index d7778b8..a5a2e8a 100644
--- a/t/plugin_new_method_backcompat.t
+++ b/t/plugin_new_method_backcompat.t
@@ -8,13 +8,17 @@
 # that plugins don't get it wrong for us.
 
 # Also tests method modifiers and etc in MyApp.pm still work as expected.
-use Test::More tests => 4;
+use Test::More tests => 6;
 use Test::Exception;
+use Moose::Util qw/find_meta/;
 use FindBin;
 use lib "$FindBin::Bin/lib";
 
 use Catalyst::Test qw/TestAppPluginWithConstructor/;
-ok request('/foo')->is_success;
+ok find_meta('TestAppPluginWithConstructor')->is_immutable,
+    'Am immutable after use';
+
+ok request('/foo')->is_success, 'Can get /foo';
 is $TestAppPluginWithConstructor::MODIFIER_FIRED, 1, 'Before modifier was fired correctly.';
 
 throws_ok {