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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-12-03 15:00:23 +0000 (Wed, 03 Dec 2008)
New Revision: 8701

Added:
   Catalyst-Runtime/5.80/trunk/t/caf_backcompat.t
Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/TODO
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Action.pm
Log:
Fix FormFu in 5.80 + test, zamolxes++

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2008-12-03 14:40:00 UTC (rev 8700)
+++ Catalyst-Runtime/5.80/trunk/Changes	2008-12-03 15:00:23 UTC (rev 8701)
@@ -1,6 +1,9 @@
 # This file documents the revision history for Perl extension Catalyst.
 
 5.8000_04
+        - Add MooseX::Emulate::Class::Accessor::Fast to Catalyst::Action,
+          needed by Catalyst::Controller::HTML::FormFu (zamolxes)
+          - Test for this (zamolxes)
         - Add MooseX::Emulate::Class::Accessor::Fast to Catalyst::Request,
           needed by Catalyst::Request::REST (t0m)
           - Test for this (t0m)

Modified: Catalyst-Runtime/5.80/trunk/TODO
===================================================================
--- Catalyst-Runtime/5.80/trunk/TODO	2008-12-03 14:40:00 UTC (rev 8700)
+++ Catalyst-Runtime/5.80/trunk/TODO	2008-12-03 15:00:23 UTC (rev 8701)
@@ -1,9 +1,9 @@
   - MooseX::Emulate::Class::Accessor::Fast 
     - Tests for uses of C::A::F from Catalyst repos. - t0m
-    - Can't locate object method "mk_accessors" via package "Catalyst::Request::REST"
     - New release once these are done.
 
-  - Look into FormFu test fails, get tests in core (marcus?)
+  - Go through everything which used to use CAF, and ensure that it now uses MX::E::CAF + tests, 
+    extending t/caf_backcompat.t and replacing t/custom_request.t (t0m)
 
   - Simple test for NEXT compat in core.
 

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Action.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Action.pm	2008-12-03 14:40:00 UTC (rev 8700)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Action.pm	2008-12-03 15:00:23 UTC (rev 8701)
@@ -19,6 +19,8 @@
 
 use Moose;
 
+with 'MooseX::Emulate::Class::Accessor::Fast';
+
 has class => (is => 'rw');
 has namespace => (is => 'rw');
 has 'reverse' => (is => 'rw');

Added: Catalyst-Runtime/5.80/trunk/t/caf_backcompat.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/caf_backcompat.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/caf_backcompat.t	2008-12-03 15:00:23 UTC (rev 8701)
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+use Test::More tests => 1;
+use Test::Exception;
+use Catalyst::Action;
+
+my $action=Catalyst::Action->new({foo=>'bar'});
+
+is $action->{foo}, 'bar', 'custom Action attribute';