Mercurial > hg > nginx-tests

changeset 1489:82be9398a9fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: perl header_only, status, and args tests.
author Sergey Kandaurov <pluknet@nginx.com>
date Thu, 11 Jul 2019 15:01:23 +0300
parents dbce8fb5f5f8
children 8f79fac049df
files perl.t
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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