t/aggregate/unit_core_engine_cgi-prepare_path.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use FindBin qw/$Bin/;
   5 use lib "$Bin/../lib";
   6 use TestApp;
   7 use Catalyst::Engine::CGI;
   8
   9 {
  10     our %ENV = (
  11         HTTP_HOST => 'www.foo.com',
  12         REDIRECT_URL => '/comics/',
  13         PATH_INFO => '/',
  14         SCRIPT_NAME => '/comics/dispatch.cgi',
  15         REQUEST_URI => '/comics/',
  16     );
  17     my $i = TestApp->new;
  18     $i->engine(Catalyst::Engine::CGI->new);
  19     $i->engine->prepare_path($i);
  20     is ''.$i->req->uri, 'http://www.foo.com/comics/';
  21     is ''.$i->req->base, 'http://www.foo.com/comics/';
  22 }
  23
  24 done_testing;
  25