From b275579910d410e7f9ecff88cccdeb673191d332 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 18 Jul 2012 16:43:57 -0500
Subject: import the Plack::Response test suite

---
 t/response.t | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 t/response.t

(limited to 't/response.t')

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;
-- 
cgit v1.2.3-54-g00ecf