[Catalyst-commits] r12590 - Catalyst-Runtime/5.80/branches/psgi/t/aggregate

[rafl at dev.catalyst.perl.org]

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'/,