7 use Catalyst::Engine::CGI;
11 HTTP_HOST => 'www.foo.com',
12 REDIRECT_URL => '/comics/',
14 SCRIPT_NAME => '/comics/dispatch.cgi',
15 REQUEST_URI => '/comics/',
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/';