[Catalyst-commits] r12590 -
Catalyst-Runtime/5.80/branches/psgi/t/aggregate
rafl at dev.catalyst.perl.org
rafl at dev.catalyst.perl.org
Sun Jan 10 04:09:59 GMT 2010
Author: rafl
Date: 2010-01-10 04:09:59 +0000 (Sun, 10 Jan 2010)
New Revision: 12590
Modified:
Catalyst-Runtime/5.80/branches/psgi/t/aggregate/live_engine_request_remote_user.t
Log:
Properly set REMOTE_USER in the request env.
Modified: Catalyst-Runtime/5.80/branches/psgi/t/aggregate/live_engine_request_remote_user.t
===================================================================
--- Catalyst-Runtime/5.80/branches/psgi/t/aggregate/live_engine_request_remote_user.t 2010-01-10 04:09:52 UTC (rev 12589)
+++ Catalyst-Runtime/5.80/branches/psgi/t/aggregate/live_engine_request_remote_user.t 2010-01-10 04:09:59 UTC (rev 12590)
@@ -17,12 +17,11 @@
{
my $creq;
- local $ENV{REMOTE_USER} = 'dwc';
my $request = GET(
'http://localhost/dump/request',
);
- ok( my $response = request($request), 'Request' );
+ ok( my $response = request($request, { extra_env => { REMOTE_USER => 'dwc' } }), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->content_type, 'text/plain', 'Response Content-Type' );
like( $response->content, qr/'Catalyst::Request'/,
More information about the Catalyst-commits
mailing list