add sugary constructor

1 files changed, 5 insertions, 11 deletions

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";
 }