summaryrefslogtreecommitdiff
path: root/t/spore-response/response.t
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--t/spore-response/response.t23
1 files changed, 23 insertions, 0 deletions
diff --git a/t/spore-response/response.t b/t/spore-response/response.t
new file mode 100644
index 0000000..56be6d2
--- /dev/null
+++ b/t/spore-response/response.t
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use Test::More;
+use Net::HTTP::Spore::Response;
+
+sub res {
+ my $res = Net::HTTP::Spore::Response->new;
+ my %v = @_;
+ while ( my ( $k, $v ) = each %v ) {
+ $res->$k($v);
+ }
+ $res->finalize;
+}
+
+is_deeply(
+ res(
+ status => 200,
+ body => 'hello',
+ ),
+ [ 200, +[], 'hello' ]
+);
+
+done_testing;