X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Funit_core_engine-prepare_path.t;h=7ba579bb76b438b55a0800dd1a2d36d9aef53094;hp=d315396b1961d163a5dd8499f5713d783699fb30;hb=b56161ed4a857706da4a786670694260d38feb6b;hpb=4b4905b6324de1d986611a0e308b6e2129d19325

diff --git a/t/aggregate/unit_core_engine-prepare_path.t b/t/aggregate/unit_core_engine-prepare_path.t
index d315396..7ba579b 100644
--- a/t/aggregate/unit_core_engine-prepare_path.t
+++ b/t/aggregate/unit_core_engine-prepare_path.t
@@ -112,6 +112,23 @@ use Catalyst::Engine;
 }
 
 
+# IIS 7.5 RT#76522
+{
+    my $r = get_req (0,
+        PATH_INFO => '/testme/try.html',
+        SCRIPT_NAME => '/testme/try.html',
+        PATH_TRANSLATED => 'C:\Sites\Test\root\testme\try.html'
+    );
+    is $r->uri."", "http://www.foo.com/testme/try.html";
+
+    $r = get_req (0,
+        PATH_INFO => '/testme/test/',
+        SCRIPT_NAME => '/testme/test/',
+        PATH_TRANSLATED => q{C:\Sites\Test\root\testme\test\\},
+    );
+    is $r->uri."", "http://www.foo.com/testme/test";
+}
+
 # FIXME - Test proxy logic
 #       - Test query string
 #       - Test non standard port numbers
@@ -126,13 +143,12 @@ sub get_req {
         PATH_INFO => '/',
     );
 
-    my $engine = Catalyst::Engine->new(
-        env => { %template, @_ },
-    );
+    my $engine = Catalyst::Engine->new();
     my $i = TestApp->new;
     $i->setup_finished(0);
     $i->config(use_request_uri_for_path => $use_request_uri_for_path);
     $i->setup_finished(1);
+    $engine->prepare_request($i, env => { %template, @_ }, response_cb => sub {});
     $engine->prepare_path($i);
     return $i->req;
 }