diff options
Diffstat (limited to 't/response-new.t')
-rw-r--r-- | t/response-new.t | 16 |
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"; } |