[Catalyst-commits] r13835 - in Catalyst-Runtime/5.80/trunk/t: aggregate lib/ChainedActionsApp/Controller

[ferz at dev.catalyst.perl.org]

Author: ferz
Date: 2010-12-10 10:22:41 +0000 (Fri, 10 Dec 2010)
New Revision: 13835

Modified:
   Catalyst-Runtime/5.80/trunk/t/aggregate/live__component_controller_action_chained2.t
   Catalyst-Runtime/5.80/trunk/t/lib/ChainedActionsApp/Controller/Root.pm
Log:
Found a another fault in chained action dispatcher.


Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/live__component_controller_action_chained2.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live__component_controller_action_chained2.t	2010-12-10 08:34:38 UTC (rev 13834)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live__component_controller_action_chained2.t	2010-12-10 10:22:41 UTC (rev 13835)
@@ -16,6 +16,11 @@
 content_like('/account/123', qr/This is account 123/, 'account');
 content_like('/account/profile/007/James Bond', qr/This is profile of James Bond/, 'account');
 
+TODO: {
+      local $TODO = q(new chained action test case that fails yet.);
+      content_like('/downloads/', qr/This is downloads index/, 'downloads');
+}
+
 action_notfound('/c');
 
 done_testing;

Modified: Catalyst-Runtime/5.80/trunk/t/lib/ChainedActionsApp/Controller/Root.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/ChainedActionsApp/Controller/Root.pm	2010-12-10 08:34:38 UTC (rev 13834)
+++ Catalyst-Runtime/5.80/trunk/t/lib/ChainedActionsApp/Controller/Root.pm	2010-12-10 10:22:41 UTC (rev 13835)
@@ -60,6 +60,22 @@
     $c->response->body( "This is profile of " . $acc );
 }
 
+=head2 downloads
+
+    This is a different test, this function is void, just to let following in the chain
+    to declare downloads as PathPart.
+
+=cut
+
+sub downloads : Chained('setup') PathPart('') CaptureArgs(0) {
+    my($self,$c) = @_;
+}
+
+sub downloads_index : Chained('downloads') PathPart('downloads') Args(0) {
+    my($self,$c) = @_;
+    $c->response->body( "This is download index");
+}
+
 sub default : Chained('setup') PathPart('') Args() {
     my ( $self, $c ) = @_;
     $c->response->body( 'Page not found' );