[catagits/Catalyst-Runtime.git] / t / aggregate / unit_dispatcher_requestargs_restore.t

# Insane test case for the behavior needed by Plugin::Auhorization::ACL

# We have to localise $c->request->{arguments} in
# Catalyst::Dispatcher::_do_forward, rather than using save and restore,
# as otherwise, the calling $c->detach on an action which says
# die $Catalyst:DETACH causes the request arguments to not get restored,
# and therefore sub gorch gets the wrong string $frozjob parameter.

# Please feel free to break this behavior once a sane hook for safely
# executing another action from the dispatcher (i.e. wrapping actions)
# is present, so that the Authorization::ACL plugin can be re-written
# to not be full of such crazy shit.

use strict;
use warnings;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use Catalyst::Test 'ACLTestApp';
use Test::More tests => 1;

request('http://localhost/gorch/wozzle');
Commit	Line	Data
12f0342e	1	# Insane test case for the behavior needed by Plugin::Auhorization::ACL
12f0342e	2
5d50f369	3	# We have to localise $c->request->{arguments} in
12f0342e	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.
12f0342e	13
	14	use strict;
	15	use warnings;
	16	use FindBin qw/$Bin/;
b1ead5a2	17	use lib "$Bin/../lib";
12f0342e	18	use Catalyst::Test 'ACLTestApp';
	19	use Test::More tests => 1;
	20
	21	request('http://localhost/gorch/wozzle');