t/aggregate/unit_core_engine_fixenv-lighttpd.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 ok 0, 'Known broken currently';
   9 done_testing;
  10
  11 __END__
  12
  13 eval "use FCGI";
  14 plan skip_all => 'FCGI required' if $@;
  15
  16 plan tests => 2;
  17
  18 require Catalyst::Engine::FastCGI;
  19
  20 my %env = (
  21     'SCRIPT_NAME'          => '/bar',
  22     'SERVER_NAME'          => 'localhost:8000',
  23     'HTTP_ACCEPT_ENCODING' => 'gzip,deflate',
  24     'HTTP_CONNECTION'      => 'keep-alive',
  25     'PATH_INFO'            => '',
  26     'HTTP_ACCEPT'          => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
  27     'REQUEST_METHOD'       => 'GET',
  28     'SCRIPT_FILENAME'      => '/tmp/Foo/root/bar',
  29     'HTTP_ACCEPT_CHARSET'  => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7',
  30     'SERVER_SOFTWARE'      => 'lighttpd/1.4.15',
  31     'QUERY_STRING'         => '',
  32     'REMOTE_PORT'          => '22207',
  33     'SERVER_PORT'          => 8000,
  34     'REDIRECT_STATUS'      => '200',
  35     'HTTP_ACCEPT_LANGUAGE' => 'en-us,en;q=0.5',
  36     'REMOTE_ADDR'          => '127.0.0.1',
  37     'FCGI_ROLE'            => 'RESPONDER',
  38     'HTTP_KEEP_ALIVE'      => '300',
  39     'SERVER_PROTOCOL'      => 'HTTP/1.1',
  40     'REQUEST_URI'          => '/bar',
  41     'GATEWAY_INTERFACE'    => 'CGI/1.1',
  42     'SERVER_ADDR'          => '127.0.0.1',
  43     'DOCUMENT_ROOT'        => '/tmp/Foo/root',
  44     'HTTP_HOST'            => 'localhost:8000',
  45 );
  46
  47 Catalyst::Engine::FastCGI->_fix_env(\%env);
  48
  49 is($env{PATH_INFO}, '/bar', 'check PATH_INFO');
  50 ok(!exists($env{SCRIPT_NAME}), 'check SCRIPT_NAME');
  51