fixed problems with mod_perl2

[catagits/Catalyst-Runtime.git] / t / 16uri.t

diff --git a/t/16uri.t b/t/16uri.t
index 86278ed..21e2df0 100644 (file)
--- 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/' );