use strict;
use warnings;
use Test::More;
use Dancer::Response;
plan tests => 10;
ok my $response = Dancer::Response->new();
is $response->status, 200;
isa_ok $response->{headers}, 'HTTP::Headers';
$response->header('Content-Type' => 'text/html');
is $response->header('Content-Type'), 'text/html';
$response->status(500);
is $response->status, 500;
$response->content("this is my content");
is $response->content, "this is my content";
ok $response->exists;
$response->pass(1);
ok $response->has_passed;
$response->pass(0);
ok !$response->has_passed;
my $psgi_headers = $response->headers_to_array();
is_deeply $psgi_headers, ['Content-Type', 'text/html'];