[Catalyst-commits] r10121 - in Catalyst-Runtime/5.80/trunk/t: . lib

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-05-13 18:37:25 +0000 (Wed, 13 May 2009)
New Revision: 10121

Modified:
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppPluginWithConstructor.pm
   Catalyst-Runtime/5.80/trunk/t/plugin_new_method_backcompat.t
Log:
Tests showing we are not immutable at the end of the file, but we are as soon as we finish the use statement

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestAppPluginWithConstructor.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestAppPluginWithConstructor.pm	2009-05-13 18:30:27 UTC (rev 10120)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestAppPluginWithConstructor.pm	2009-05-13 18:37:25 UTC (rev 10121)
@@ -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 @@
 } 'Can apply method modifier';
 no Moose;
 
+our $IS_IMMUTABLE_YET = __PACKAGE__->meta->is_immutable;
+ok !$IS_IMMUTABLE_YET, 'I am not immutable yet';
+
 1;
 

Modified: Catalyst-Runtime/5.80/trunk/t/plugin_new_method_backcompat.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/plugin_new_method_backcompat.t	2009-05-13 18:30:27 UTC (rev 10120)
+++ Catalyst-Runtime/5.80/trunk/t/plugin_new_method_backcompat.t	2009-05-13 18:37:25 UTC (rev 10121)
@@ -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 {