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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-12-21 14:30:19 +0000 (Sun, 21 Dec 2008)
New Revision: 8931

Added:
   Catalyst-Runtime/5.80/trunk/t/cdi_backcompat_plugin_accessor_override.t
   Catalyst-Runtime/5.80/trunk/t/lib/CDICompatTestPlugin.pm
Removed:
   Catalyst-Runtime/5.80/trunk/t/caf_backcompat_plugin_accessor_override.t
   Catalyst-Runtime/5.80/trunk/t/lib/CAFCompatTestPlugin.pm
Modified:
   Catalyst-Runtime/5.80/trunk/TODO
Log:
Authentication back compat fail due to ::ClassData not behaving like C::D::I, not CAF compat or MRO as previously suspected

Modified: Catalyst-Runtime/5.80/trunk/TODO
===================================================================
--- Catalyst-Runtime/5.80/trunk/TODO	2008-12-21 11:20:28 UTC (rev 8930)
+++ Catalyst-Runtime/5.80/trunk/TODO	2008-12-21 14:30:19 UTC (rev 8931)
@@ -6,9 +6,9 @@
 
 Known issues:  
 
-  - Fix t/caf_backcompat_plugin_accessor_override.t - Test doesn't properly
-    demonstrate the issue as it fails against 5.70. Only passes in real auth
-    plugin due to method ordering?
+  - Fix t/cdi_backcompat_plugin_accessor_override.t - Catalyst::ClassData
+    doesn't emulate Class::Data::Inheritable by crapping on the symbol table
+    of the top level MyApp class, which causes back-compat fail.
 
 Cleanups:
 

Deleted: Catalyst-Runtime/5.80/trunk/t/caf_backcompat_plugin_accessor_override.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/caf_backcompat_plugin_accessor_override.t	2008-12-21 11:20:28 UTC (rev 8930)
+++ Catalyst-Runtime/5.80/trunk/t/caf_backcompat_plugin_accessor_override.t	2008-12-21 14:30:19 UTC (rev 8931)
@@ -1,24 +0,0 @@
-use strict;
-use warnings;
-use lib 't/lib';
-
-use Test::More tests => 1;
-use Test::Exception;
-
-# Force a stack trace.
-use Carp;
-$SIG{__DIE__} = \&Carp::confess;
-
-{
-    package CAFCompatTestApp;
-    use Catalyst qw/
-	    +CAFCompatTestPlugin
-    /;
-}
-
-TODO: {
-    local $TODO = 'The overridden setup in CAFCompatTestApp + the overridden accessor causes destruction';
-    lives_ok {
-        CAFCompatTestApp->setup;
-    } 'Setup app with plugins which says use base qw/Class::Accessor::Fast/';
-}

Added: Catalyst-Runtime/5.80/trunk/t/cdi_backcompat_plugin_accessor_override.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/cdi_backcompat_plugin_accessor_override.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/cdi_backcompat_plugin_accessor_override.t	2008-12-21 14:30:19 UTC (rev 8931)
@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+use lib 't/lib';
+
+use Test::More tests => 1;
+use Test::Exception;
+
+# Force a stack trace.
+use Carp;
+$SIG{__DIE__} = \&Carp::confess;
+
+{
+    package CDICompatTestApp;
+    use Catalyst qw/
+	    +CDICompatTestPlugin
+    /;
+    # Calling ->config here (before we call setup). With CDI/Cat 5.70 this
+    # causes *CDICompatTestApp::_config to have a class data accessor created.
+    
+    # If this doesn't happen, then later when we've added CDICompatTestPlugin
+    # to @ISA, we fail in the overridden ->setup method when we call ->config
+    # again, as we get the CAF accessor from CDICompatTestPlugin, not the one
+    # created in this package as a side-effect of this call. :-(
+    __PACKAGE__->config;
+}
+
+TODO: {
+    local $TODO = 'The overridden setup in CDICompatTestApp + the overridden accessor causes destruction';
+    lives_ok {
+        CDICompatTestApp->setup;
+    } 'Setup app with plugins which says use base qw/Class::Accessor::Fast/';
+}

Deleted: Catalyst-Runtime/5.80/trunk/t/lib/CAFCompatTestPlugin.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/CAFCompatTestPlugin.pm	2008-12-21 11:20:28 UTC (rev 8930)
+++ Catalyst-Runtime/5.80/trunk/t/lib/CAFCompatTestPlugin.pm	2008-12-21 14:30:19 UTC (rev 8931)
@@ -1,30 +0,0 @@
-package CAFCompatTestPlugin;
-
-# This plugin specificially tests an edge case of CAF compat,
-# where you load a plugin which uses base CAF, and then override
-# a core catalyst accessor (_config in this case)..
-
-# This is what happens if you use the authentication back-compat
-# stuff, as C::A::Plugin::Credential::Password is added to the plugin
-# list, and the base C::A::C::P class, does the mk_accessors, and
-# then the C::P::A class calls the config method before setup finishes...
-
-use strict;
-use warnings;
-
-# Note that we don't actually _really_ use CAF here, as MX::Adopt::CAF
-# is in place...
-use base qw/Class::Accessor::Fast/;
-
-BEGIN {
-    __PACKAGE__->mk_accessors(qw/_config/);
-}
-
-sub setup {
-    my $app = shift;
-
-    $app->config;
-    $app->NEXT::setup(@_);
-}
-
-1;

Added: Catalyst-Runtime/5.80/trunk/t/lib/CDICompatTestPlugin.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/CDICompatTestPlugin.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/lib/CDICompatTestPlugin.pm	2008-12-21 14:30:19 UTC (rev 8931)
@@ -0,0 +1,27 @@
+package CDICompatTestPlugin;
+
+# This plugin specificially tests an edge case of C::D::I compat,
+# where you load a plugin which creates an accessor with the same
+# name as a class data accessor (_config in this case)..
+
+# This is what happens if you use the authentication back-compat
+# stuff, as C::A::Plugin::Credential::Password is added to the plugin
+# list, and that uses base C::A::C::P class, does the mk_accessors.
+
+# If a class data method called _config hasn't been created in 
+# MyApp ($app below), then our call to ->config gets our accessor
+# (rather than the class data one), and we fail..
+
+use strict;
+use warnings;
+use base qw/Class::Accessor::Fast/;
+__PACKAGE__->mk_accessors(qw/_config/);
+
+sub setup {
+    my $app = shift;
+
+    $app->config;
+    $app->NEXT::setup(@_);
+}
+
+1;