# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1562846483 -10800
# Node ID 82be9398a9fa438b4ad1c28fe08f985bfad50c9b
# Parent  dbce8fb5f5f8e651f85f7500f71169b6337ea670
Tests: perl header_only, status, and args tests.

diff --git a/perl.t b/perl.t
--- a/perl.t
+++ b/perl.t
@@ -23,7 +23,7 @@ use Test::Nginx;
 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 @@ http {
 
                 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 @@ EOF
 
 ###############################################################################
 
-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