X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_engine_cgi-prepare_path.t;h=dd768f4570ef6322bc5b4ef24e648199057697c5;hb=ee1ea13fb9f1694f769e4bf41366178079e16c06;hp=d0e3f3b7b2b3dbbb27a6b7e44051db41d3d22ab2;hpb=e66329daef8b951878efad004f636924baf448fd;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/unit_core_engine_cgi-prepare_path.t b/t/aggregate/unit_core_engine_cgi-prepare_path.t index d0e3f3b..dd768f4 100644 --- a/t/aggregate/unit_core_engine_cgi-prepare_path.t +++ b/t/aggregate/unit_core_engine_cgi-prepare_path.t @@ -6,11 +6,6 @@ use lib "$Bin/../lib"; use TestApp; use Catalyst::Engine::CGI; -our %template = ( - HTTP_HOST => 'www.foo.com', - PATH_INFO => '/', -); - # mod_rewrite to app root for non / based app { my $r = get_req ( @@ -62,7 +57,13 @@ our %template = ( # - Test scheme (secure request on port 80) sub get_req { + my %template = ( + HTTP_HOST => 'www.foo.com', + PATH_INFO => '/', + ); + local %ENV = (%template, @_); + my $i = TestApp->new; $i->engine(Catalyst::Engine::CGI->new); $i->engine->prepare_path($i);