Append test for multibyte PATH_INFO. This is authority of the commit 0…

…e69e5d. Ref. cho45@0e69e5d#commitcomment-222386
markstos · Dec 21, 2010 · ff47b65 · ff47b65
1 parent 8cc0d98
commit ff47b65
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/lib/Plack/Test/Suite.pm b/lib/Plack/Test/Suite.pm
@@ -272,6 +272,22 @@ our @TEST = (
             ];
         },
     ],
+    [
+        '% encoding in PATH_INFO (outside of URI characters)',
+        sub {
+            my $cb  = shift;
+            my $res = $cb->(GET "http://127.0.0.1/foo%E3%81%82");
+            is $res->content, "/foo\x{e3}\x{81}\x{82}";
+        },
+        sub {
+            my $env = shift;
+            return [
+                200,
+                [ 'Content-Type' => 'text/plain', ],
+                [ $env->{PATH_INFO} ],
+            ];
+        },
+    ],
     [
         'SERVER_PROTOCOL is required',
         sub {