diff options
Diffstat (limited to 't')
-rw-r--r-- | t/response-to_app.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/response-to_app.t b/t/response-to_app.t new file mode 100644 index 0000000..703953d --- /dev/null +++ b/t/response-to_app.t @@ -0,0 +1,21 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use Plack::Test; + +use HTTP::Request::Common; +use Web::Response; + +my $res = Web::Response->new(status => 200); +$res->content("hello"); + +test_psgi $res->to_app, sub { + my $cb = shift; + + my $res = $cb->(GET "/"); + is $res->code, 200, 'response code'; + is $res->content, 'hello', 'content'; +}; + +done_testing; |