9 'SCRIPT_NAME' => '/bar',
10 'SERVER_NAME' => 'localhost:8000',
11 'HTTP_ACCEPT_ENCODING' => 'gzip,deflate',
12 'HTTP_CONNECTION' => 'keep-alive',
14 'HTTP_ACCEPT' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
15 'REQUEST_METHOD' => 'GET',
16 'SCRIPT_FILENAME' => '/tmp/Foo/root/bar',
17 'HTTP_ACCEPT_CHARSET' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7',
18 'SERVER_SOFTWARE' => 'lighttpd/1.4.15',
20 'REMOTE_PORT' => '22207',
21 'SERVER_PORT' => 8000,
22 'REDIRECT_STATUS' => '200',
23 'HTTP_ACCEPT_LANGUAGE' => 'en-us,en;q=0.5',
24 'REMOTE_ADDR' => '127.0.0.1',
25 'FCGI_ROLE' => 'RESPONDER',
26 'HTTP_KEEP_ALIVE' => '300',
27 'SERVER_PROTOCOL' => 'HTTP/1.1',
28 'REQUEST_URI' => '/bar',
29 'GATEWAY_INTERFACE' => 'CGI/1.1',
30 'SERVER_ADDR' => '127.0.0.1',
31 'DOCUMENT_ROOT' => '/tmp/Foo/root',
32 'HTTP_HOST' => 'localhost:8000',
39 my $app = Catalyst->apply_default_middlewares(sub {
42 return [ 200, ['Content-Type' => 'text/plain'], [''] ];
45 $app->({ %input_env, 'psgi.url_scheme' => 'http' });
46 return %{ $mangled_env };
49 my %fixed_env = fix_env(%env);
51 is($fixed_env{PATH_INFO}, '/bar', 'check PATH_INFO');
52 ok(!exists($fixed_env{SCRIPT_NAME}) || !length($fixed_env{SCRIPT_NAME}),