[Catalyst-commits] r12271 - Catalyst-Runtime/5.80/trunk/t/aggregate

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-12-09 18:30:53 +0000 (Wed, 09 Dec 2009)
New Revision: 12271

Added:
   Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_engine_cgi-prepare_path.t
Log:
Regression for 5.80015 when rewriting an app, nanonyme++, Khisanth++

Added: Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_engine_cgi-prepare_path.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_engine_cgi-prepare_path.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_engine_cgi-prepare_path.t	2009-12-09 18:30:53 UTC (rev 12271)
@@ -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;
+