commit 0d2fffcf1d5f707a282b406a83f8245a933f511d
author Sergey Kandaurov <pluknet@nginx.com> Thu Jul 11 15:01:23 2019 +0300
committer Sergey Kandaurov <pluknet@nginx.com> Thu Jul 11 15:01:23 2019 +0300
tree f7f65b30b5b27c3db50f74fc40a5f157a6553983
parent 571b1a5e388a0e1b3c4ef9e0d412278acc280e45

Tests: perl header_only, status, and args tests.

perl.t

diff --git a/perl.t b/perl.t
index 589b1a4..5bbcf92 100644
--- a/perl.t
+++ b/perl.t
@@ -23,7 +23,7 @@
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/http perl rewrite/)->plan(18)
+my $t = Test::Nginx->new()->has(qw/http perl rewrite/)->plan(20)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 %%TEST_GLOBALS%%
@@ -48,6 +48,8 @@
 
                 my $r = shift;
 
+                $r->status(204) if $r->args =~ /204/;
+
                 $r->send_http_header("text/plain");
 
                 return OK if $r->header_only;
@@ -114,7 +116,9 @@
 
 ###############################################################################
 
-like(http_get('/'), qr/TEST/, 'perl response');
+like(http_get('/'), qr/ 200 .*TEST/s, 'perl response');
+like(http_head('/'), qr/ 200 (?!.*TEST)/s, 'perl header_only');
+like(http_get('/?204'), qr/ 204 (?!.*TEST)/s, 'perl status, args');
 
 # various $r->header_in() cases