Regression for 5.80015 when rewriting an app, nanonyme++, Khisanth++

diff --git a/t/aggregate/unit_core_engine_cgi-prepare_path.t b/t/aggregate/unit_core_engine_cgi-prepare_path.t
new file mode 100644 (file)
index 0000000..845b22f
--- /dev/null
+++ b/t/aggregate/unit_core_engine_cgi-prepare_path.t
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+use Test::More;
+use FindBin qw/$Bin/;
+use lib "$Bin/../lib";
+use TestApp;
+use Catalyst::Engine::CGI;
+
+{
+    our %ENV = (
+        HTTP_HOST => 'www.foo.com',
+        REDIRECT_URL => '/comics/',
+        PATH_INFO => '/',
+        SCRIPT_NAME => '/comics/dispatch.cgi',
+        REQUEST_URI => '/comics/',
+    );
+    my $i = TestApp->new;
+    $i->engine(Catalyst::Engine::CGI->new);
+    $i->engine->prepare_path($i);
+    is ''.$i->req->uri, 'http://www.foo.com/comics/';
+    is ''.$i->req->base, 'http://www.foo.com/comics/';
+}
+
+done_testing;
+