import the Plack::Response test suite

1 files changed, 53 insertions, 0 deletions

diff --git a/t/response.t b/t/response.t
new file mode 100644
index 0000000..a189c4d
--- /dev/null
+++ b/t/response.t
@@ -0,0 +1,53 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Web::Response;
+
+sub res {
+    my $res = Web::Response->new;
+    my %v = @_;
+    while (my($k, $v) = each %v) {
+        $res->$k($v);
+    }
+    $res->finalize;
+}
+
+is_deeply(
+    res(
+        status => 200,
+        body => 'hello',
+    ),
+    [ 200, +[], [ 'hello' ] ]
+);
+is_deeply(
+    res(
+        status => 200,
+        cookies => +{
+            'foo_sid' => +{
+                value => 'ASDFJKL:',
+                expires => 'Thu, 25-Apr-1999 00:40:33 GMT',
+                domain  => 'example.com',
+                path => '/',
+            },
+            'poo_sid' => +{
+                value => 'QWERTYUI',
+                expires => 'Thu, 25-Apr-1999 00:40:33 GMT',
+                domain  => 'example.com',
+                path => '/',
+            },
+        },
+        body   => 'hello',
+    ),
+    [
+        200,
+        +[
+            'Set-Cookie' => 'poo_sid=QWERTYUI; domain=example.com; path=/; expires=Thu, 25-Apr-1999 00:40:33 GMT',
+            'Set-Cookie' => 'foo_sid=ASDFJKL%3A; domain=example.com; path=/; expires=Thu, 25-Apr-1999 00:40:33 GMT',
+        ],
+        [ 'hello' ],
+    ]
+);
+
+done_testing;