From fbeba3e0c7cb53bce4302b4ac206a0f9b169d20f Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 19 Aug 2012 09:57:45 -0500
Subject: add sugary constructor

---
 t/response-new.t | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

(limited to 't/response-new.t')

diff --git a/t/response-new.t b/t/response-new.t
index d78d1ad..e23d091 100644
--- a/t/response-new.t
+++ b/t/response-new.t
@@ -6,34 +6,28 @@ use Test::More;
 use Web::Response;
 
 {
-    my $res = Web::Response->new(status => 302);
+    my $res = Web::Response->new([302]);
     is $res->status, 302;
 }
 
 {
-    my $res = Web::Response->new(
-        status  => 200,
-        headers => [ 'Content-Type' => 'text/plain' ],
-    );
+    my $res = Web::Response->new([200, ['Content-Type' => 'text/plain']]);
     is $res->content_type, 'text/plain';
 }
 
 {
-    my $res = Web::Response->new(
-        status  => 200,
-        headers => { 'Content-Type' => 'text/plain' },
-    );
+    my $res = Web::Response->new([200, ['Content-Type' => 'text/plain']]);
     is $res->content_type, 'text/plain';
 }
 
 {
-    my $res = Web::Response->new(status => 200);
+    my $res = Web::Response->new([200]);
     $res->content_type('image/png');
     is $res->content_type, 'image/png';
 }
 
 {
-    my $res = Web::Response->new(status => 200);
+    my $res = Web::Response->new([200]);
     $res->header('X-Foo' => "bar");
     is $res->header('X-Foo'), "bar";
 }
-- 
cgit v1.2.3-54-g00ecf