From 7dddfe2143e28dcde147d8420f0bd129babaec3a Mon Sep 17 00:00:00 2001
From: Andrey Zelenkov <zelenkov@nginx.com>
Date: Mon, 28 Jan 2019 17:16:50 +0300
Subject: Tests: added test for reading body from IO::Handle-like object.

---
 test/perl/body_io_fake/psgi.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 test/perl/body_io_fake/psgi.pl

(limited to 'test/perl/body_io_fake/psgi.pl')

diff --git a/test/perl/body_io_fake/psgi.pl b/test/perl/body_io_fake/psgi.pl
new file mode 100644
index 00000000..6990bfaf
--- /dev/null
+++ b/test/perl/body_io_fake/psgi.pl
@@ -0,0 +1,11 @@
+use File::Basename;
+use lib dirname (__FILE__);
+use IOFake;
+
+my $app = sub {
+    my ($environ) = @_;
+
+    my $io = IOFake->new($environ->{'psgi.errors'});
+
+    return ['200', [ 'Content-Length' => '2' ], $io];
+};
-- 
cgit