Add a new test with a big (> 127 bytes) HTTP header value

ray1729 · Dec 12, 2009 · dd12774 · dd12774
1 parent 4afa7b5
commit dd12774
Showing 1 changed file with 20 additions and 1 deletion.
diff --git a/lib/Plack/Test/Suite.pm b/lib/Plack/Test/Suite.pm
@@ -416,7 +416,26 @@ our @TEST = (
             ];
         },
     ],
-
+    [
+        'a big header value > 128 bytes',
+        sub {
+            my $cb  = shift;
+            my $req = GET "http://127.0.0.1/";
+            my $v = ("abcdefgh" x 16);
+            $req->header('X-Foo' => $v);
+            my $res = $cb->($req);
+            is $res->code, 200;
+            is $res->content, $v;
+        },
+        sub {
+            my $env = shift;
+            return [
+                200,
+                [ 'Content-Type' => 'text/plain' ],
+                [ $env->{HTTP_X_FOO} ],
+            ];
+        },
+    ],
 );
 
 sub runtests {