Mercurial > hg > nginx-tests
changeset 1489:82be9398a9fa
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