summaryrefslogtreecommitdiffstats
path: root/t/response-new.t
diff options
context:
space:
mode:
Diffstat (limited to 't/response-new.t')
-rw-r--r--t/response-new.t16
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";
}