fix uri escaping (backported from Plack 5f9c372)

1 files changed, 16 insertions, 1 deletions

diff --git a/t/uri.t b/t/uri.t
index 08aa584..e4bf438 100644
--- a/t/uri.t
+++ b/t/uri.t
@@ -45,6 +45,13 @@ my @tests = (
       },
       uri => 'http://example.com/exec/',
       parameters => {} },
+
+    { add_env => {
+        HTTP_HOST => 'example.com',
+        SCRIPT_NAME => '/exec/'
+      },
+      uri => 'http://example.com/exec/',
+      parameters => {} },
     { add_env => {
         SERVER_NAME => 'example.com'
       },
@@ -87,7 +94,15 @@ my @tests = (
         PATH_INFO => "/baz quux",
       },
       uri => 'http://example.com/foo%20bar/baz%20quux',
-      parameters => {} }
+      parameters => {} },
+    { add_env => {
+        HTTP_HOST => 'example.com',
+        SCRIPT_NAME => "/path",
+        PATH_INFO => "/parameters;path=one,two",
+        QUERY_STRING => "query=foobar",
+      },
+      uri => 'http://example.com/path/parameters;path=one,two?query=foobar',
+      parameters => { query => "foobar" } },
 );
 
 for my $block (@tests) {