Well, apparently this *is* necessary, just the extra_env stuff isn't :/
Florian Ragwitz [Mon, 11 Jan 2010 22:23:49 +0000 (22:23 +0000)]
This reverts commit 87d4377bb66a6530cd2e13c4e770e7b1f0aaf7d3.

t/aggregate/live_engine_request_escaped_path.t [new file with mode: 0644]

diff --git a/t/aggregate/live_engine_request_escaped_path.t b/t/aggregate/live_engine_request_escaped_path.t
new file mode 100644 (file)
index 0000000..92bd2ee
--- /dev/null
@@ -0,0 +1,29 @@
+#!/usr/bin/evn perl
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use Test::More tests => 6;
+use Catalyst::Test 'TestApp';
+
+# test that un-escaped can be feteched.
+{
+
+    ok( my $response = request('http://localhost/args/params/one/two') );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content, 'onetwo' );
+}
+
+# test that request with URL-escaped code works.
+{
+    my $response = request('http://localhost/args/param%73/one/two', {
+        extra_env => { PATH_INFO => '/args/param%73/one/two' },
+    });
+
+    ok( $response );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content, 'onetwo' );
+}
+