t/aggregate/unit_dispatcher_requestargs_restore.t

   1 # Insane test case for the behavior needed by Plugin::Auhorization::ACL
   2
   3 # We have to localise $c->request->{arguments} in
   4 # Catalyst::Dispatcher::_do_forward, rather than using save and restore,
   5 # as otherwise, the calling $c->detach on an action which says
   6 # die $Catalyst:DETACH causes the request arguments to not get restored,
   7 # and therefore sub gorch gets the wrong string $frozjob parameter.
   8
   9 # Please feel free to break this behavior once a sane hook for safely
  10 # executing another action from the dispatcher (i.e. wrapping actions)
  11 # is present, so that the Authorization::ACL plugin can be re-written
  12 # to not be full of such crazy shit.
  13
  14 use strict;
  15 use warnings;
  16 use FindBin qw/$Bin/;
  17 use lib "$Bin/../lib";
  18 use Catalyst::Test 'ACLTestApp';
  19 use Test::More tests => 1;
  20
  21 request('http://localhost/gorch/wozzle');