From: Tomas Doran <bobtfish@bobtfish.net>
Date: Wed, 13 May 2009 18:37:25 +0000 (+0000)
Subject: Tests showing we are not immutable at the end of the file, but we are as soon as... 
X-Git-Tag: 5.80004~23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=bca6bdad36357e75b0efdcd92bc25f32c07182cd

Tests showing we are not immutable at the end of the file, but we are as soon as we finish the use statement
---

diff --git a/t/lib/TestAppPluginWithConstructor.pm b/t/lib/TestAppPluginWithConstructor.pm
index 30818f8..36d8e16 100644
--- 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;
 
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 {