import the Plack::Response test suite

1 files changed, 60 insertions, 0 deletions

diff --git a/t/response-compatible.t b/t/response-compatible.t
new file mode 100644
index 0000000..9fa8e54
--- /dev/null
+++ b/t/response-compatible.t
@@ -0,0 +1,60 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Web::Response;
+
+{
+    my $res = Web::Response->new;
+    $res->status(200);
+    $res->header("Foo:Bar" => "baz");
+    $res->body("Hello");
+
+    is_deeply $res->finalize, [ 200, [ 'Foo:Bar' => 'baz' ], ["Hello"] ];
+}
+
+{
+    my $res = Web::Response->new;
+    $res->status(200);
+    $res->header("Foo\000Bar" => "baz");
+    $res->header("Qux\177Quux" => "42");
+    $res->body("Hello");
+
+    is_deeply $res->finalize, [ 200, [ "Foo\000Bar" => 'baz', "Qux\177Quux" => '42' ], ["Hello"] ];
+}
+
+{
+    my $res = Web::Response->new;
+    $res->status(200);
+    $res->header("X-LWS-I"  => "Bar\r\n  true");
+    $res->header("X-LWS-II" => "Bar\r\n\t\ttrue");
+    $res->body("Hello");
+
+    is_deeply $res->finalize,
+        [
+            200,
+            [ 'X-LWS-I' => 'Bar true', 'X-LWS-II' => 'Bar true' ],
+            ["Hello"]
+        ];
+}
+
+{
+    my $res = Web::Response->new;
+    $res->status(200);
+    $res->header("X-CR-LF" => "Foo\nBar\rBaz");
+    $res->body("Hello");
+
+    is_deeply $res->finalize, [ 200, [ 'X-CR-LF' => 'FooBarBaz' ], ["Hello"] ];
+}
+
+{
+    my $res = Web::Response->new;
+    $res->status(200);
+    $res->header("X-CR-LF" => "Foo\nBar\rBaz");
+    $res->body("Hello");
+
+    is_deeply $res->finalize, [ 200, [ 'X-CR-LF' => 'FooBarBaz' ], ["Hello"] ];
+}
+
+done_testing;