6 use Test::More tests => 2;
10 scgi_application_prefix: {
11 my $request = Catalyst::Request->new;
13 $ENV{HTTP_HOST} = "127.0.0.1";
14 $ENV{SERVER_PORT} = 80;
15 $ENV{SCRIPT_NAME} = '/MyApp';
16 $ENV{PATH_INFO} = '/some/path';
18 Catalyst->setup_engine('SCGI');
19 my $c = Catalyst->new({
25 Catalyst::uri_for( $c, '/some/path' )->as_string,
26 'http://127.0.0.1/MyApp/some/path',
27 'uri_for creates url with correct application prefix'