Properly set REMOTE_USER in the request env.
Florian Ragwitz [Sun, 10 Jan 2010 04:09:59 +0000 (04:09 +0000)]
t/aggregate/live_engine_request_remote_user.t

index 7e5cba2..c62f607 100644 (file)
@@ -17,12 +17,11 @@ use HTTP::Request::Common;
 {
     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'/,