X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16uri.t;h=21e2df03aa25e447ce9ac137c8e490940efb54fa;hb=b76d7db825981c235ff6cfa02b3d393424eaea0e;hp=86278ed114d0bd97421cfdb49e2a7557db728bad;hpb=c10563323dadc3194743c5e460840380e8c07703;p=catagits%2FCatalyst-Runtime.git diff --git a/t/16uri.t b/t/16uri.t index 86278ed..21e2df0 100644 --- a/t/16uri.t +++ b/t/16uri.t @@ -1,6 +1,6 @@ package TestApp; -use Catalyst; +use Catalyst qw[-Engine=Test]; TestApp->action( '!default' => \&default ); TestApp->action( 'index/a/b' => \&default ); @@ -16,25 +16,12 @@ sub default { package main; -use Test::More tests => 9; +use Test::More tests => 6; use Catalyst::Test 'TestApp'; { local %ENV; - $ENV{SCRIPT_NAME} = '/nph-catalyst.cgi'; - $ENV{PATH_INFO} = '/index'; - - my $response = request('/nph-catalyst.cgi/index'); - - ok( $response->headers->header('X-Base') eq 'http://localhost/nph-catalyst.cgi' ); - ok( $response->headers->header('X-Arguments') eq 'index' ); - ok( $response->headers->header('X-Path') eq 'index' ); -} - -{ - local %ENV; - my $response = request('/index?a=a&b=b'); ok( $response->headers->header('X-Base') eq 'http://localhost/' );