[Catalyst-commits] r12608 - Catalyst-Runtime/5.80/branches/psgi/t/aggregate

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2010-01-11 22:23:49 +0000 (Mon, 11 Jan 2010)
New Revision: 12608

Added:
   Catalyst-Runtime/5.80/branches/psgi/t/aggregate/live_engine_request_escaped_path.t
Log:
Well, apparently this *is* necessary, just the extra_env stuff isn't :/

This reverts commit 87d4377bb66a6530cd2e13c4e770e7b1f0aaf7d3.

Added: Catalyst-Runtime/5.80/branches/psgi/t/aggregate/live_engine_request_escaped_path.t
===================================================================
--- Catalyst-Runtime/5.80/branches/psgi/t/aggregate/live_engine_request_escaped_path.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/psgi/t/aggregate/live_engine_request_escaped_path.t	2010-01-11 22:23:49 UTC (rev 12608)
@@ -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' );
+}
+