From 754b85c3eedc6717b9bb94fe82a80f36f25a3e9f Mon Sep 17 00:00:00 2001
From: Andrey Zelenkov <zelenkov@nginx.com>
Date: Fri, 1 Mar 2019 17:13:51 +0300
Subject: Tests: Perl streaming body and delayed response simple tests.

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

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

diff --git a/test/perl/streaming_body/psgi.pl b/test/perl/streaming_body/psgi.pl
new file mode 100644
index 00000000..a3e54ee0
--- /dev/null
+++ b/test/perl/streaming_body/psgi.pl
@@ -0,0 +1,13 @@
+my $app = sub {
+    my ($environ) = @_;
+
+    return sub {
+      my $writer = (my $responder = shift)->([200, [
+          'Content-Type' => 'text/plain',
+          'Content-Length' => '12'
+      ]]);
+
+      $writer->write("Hello World!");
+      $writer->close;
+    };
+};
-- 
cgit