From b275579910d410e7f9ecff88cccdeb673191d332 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 18 Jul 2012 16:43:57 -0500
Subject: import the Plack::Response test suite

---
 t/response-body.t | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 t/response-body.t

(limited to 't/response-body.t')

diff --git a/t/response-body.t b/t/response-body.t
new file mode 100644
index 0000000..39e2e03
--- /dev/null
+++ b/t/response-body.t
@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use File::Temp;
+use FindBin;
+use URI;
+use Web::Response;
+
+sub r($) {
+    my $res = Web::Response->new(status => 200);
+    $res->body(@_);
+    return $res->finalize->[2];
+}
+
+is_deeply r "Hello World", [ "Hello World" ];
+is_deeply r [ "Hello", "World" ], [ "Hello", "World" ];
+
+{
+    open my $fh, "$FindBin::Bin/body.t";
+    is_deeply r $fh, $fh;
+}
+
+{
+    my $foo = "bar";
+    open my $io, "<", \$foo;
+    is_deeply r $io, $io;
+}
+
+{
+    my $uri = URI->new("foo"); # stringified object
+    is_deeply r $uri, [ $uri ];
+}
+
+{
+    my $tmp = File::Temp->new; # File::Temp has stringify method, but it is-a IO::Handle.
+    is_deeply r $tmp, $tmp;
+}
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf