add sugary constructor

3 files changed, 7 insertions, 13 deletions

diff --git a/t/response-body.t b/t/response-body.t
index 80056fe..57b9154 100644
--- a/t/response-body.t
+++ b/t/response-body.t
@@ -9,7 +9,7 @@ use URI;
 use Web::Response;
 
 sub r($) {
-    my $res = Web::Response->new(status => 200);
+    my $res = Web::Response->new([200]);
     $res->content(@_);
     return $res->finalize->[2];
 }
diff --git a/t/response-cookie.t b/t/response-cookie.t
index c9d35ee..184723f 100644
--- a/t/response-cookie.t
+++ b/t/response-cookie.t
@@ -8,7 +8,7 @@ use HTTP::Request::Common;
 use Web::Response;
 
 my $app = sub {
-    my $res = Web::Response->new(status => 200);
+    my $res = Web::Response->new([200]);
 
     $res->cookies->{t1} = { value => "bar", domain => '.example.com', path => '/cgi-bin' };
     $res->cookies->{t2} = { value => "xxx yyy", expires => time + 3600 };
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";
 }