[Catalyst-commits] r6603 - in trunk/Catalyst-Plugin-Authorization-ACL/t: . lib

[gphat at dev.catalyst.perl.org]

Author: gphat
Date: 2007-07-31 16:57:46 +0100 (Tue, 31 Jul 2007)
New Revision: 6603

Modified:
   trunk/Catalyst-Plugin-Authorization-ACL/t/lib/ACLTestApp2.pm
   trunk/Catalyst-Plugin-Authorization-ACL/t/more_live_app.t
Log:
Test for access_denied eating params.


Modified: trunk/Catalyst-Plugin-Authorization-ACL/t/lib/ACLTestApp2.pm
===================================================================
--- trunk/Catalyst-Plugin-Authorization-ACL/t/lib/ACLTestApp2.pm	2007-07-31 15:06:46 UTC (rev 6602)
+++ trunk/Catalyst-Plugin-Authorization-ACL/t/lib/ACLTestApp2.pm	2007-07-31 15:57:46 UTC (rev 6603)
@@ -19,8 +19,9 @@
 }
 
 sub gorch : Local {
-    my ( $self, $c ) = @_;
+    my ( $self, $c, $frozjob ) = @_;
     $c->res->body( $c->res->body . "gorch");
+    $c->res->body( $c->res->body . "&frozjob=$frozjob");
 }
 
 sub end : Private {

Modified: trunk/Catalyst-Plugin-Authorization-ACL/t/more_live_app.t
===================================================================
--- trunk/Catalyst-Plugin-Authorization-ACL/t/more_live_app.t	2007-07-31 15:06:46 UTC (rev 6602)
+++ trunk/Catalyst-Plugin-Authorization-ACL/t/more_live_app.t	2007-07-31 15:57:46 UTC (rev 6603)
@@ -11,7 +11,7 @@
     eval {
 		require Test::WWW::Mechanize::Catalyst;
     } or plan 'skip_all' => "A bunch of plugins are required for this test... Look in the source if you really care... $@";
-    plan tests => 10;
+    plan tests => 12;
 }
 
 
@@ -37,3 +37,6 @@
 
 $m->get_ok( "$u/gorch", "get gorch" );
 $m->content_contains( "denied handled gorch", "denied but overridden by handler" );
+
+$m->get_ok( "$u/gorch/wozzle", "get gorch" );
+$m->content_contains( "frozjob=wozzle", "overriden acces has params intact" );