import the Plack::Response test suite

1 files changed, 41 insertions, 0 deletions

diff --git a/t/response-new.t b/t/response-new.t
new file mode 100644
index 0000000..d78d1ad
--- /dev/null
+++ b/t/response-new.t
@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Web::Response;
+
+{
+    my $res = Web::Response->new(status => 302);
+    is $res->status, 302;
+}
+
+{
+    my $res = Web::Response->new(
+        status  => 200,
+        headers => [ 'Content-Type' => 'text/plain' ],
+    );
+    is $res->content_type, 'text/plain';
+}
+
+{
+    my $res = Web::Response->new(
+        status  => 200,
+        headers => { 'Content-Type' => 'text/plain' },
+    );
+    is $res->content_type, 'text/plain';
+}
+
+{
+    my $res = Web::Response->new(status => 200);
+    $res->content_type('image/png');
+    is $res->content_type, 'image/png';
+}
+
+{
+    my $res = Web::Response->new(status => 200);
+    $res->header('X-Foo' => "bar");
+    is $res->header('X-Foo'), "bar";
+}
+
+done_testing;