Mercurial > hg > nginx-tests
diff perl.t @ 1180:a69de1aba1ad
Tests: added perl test with not satisfiable range.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 02 Jun 2017 13:28:04 +0300 |
parents | 8241ebbe753d |
children | fe0765147e15 |
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(16) +my $t = Test::Nginx->new()->has(qw/http perl rewrite/)->plan(17) ->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% @@ -173,6 +173,17 @@ like(http( ), qr/Content-Length: (?!42).*^xx\x0d.*^xxx\x0d/ms, 'perl header_out content-length multipart'); +TODO: { +local $TODO = 'not yet'; + +like(http( + 'GET /range HTTP/1.0' . CRLF + . 'Host: localhost' . CRLF + . 'Range: bytes=100000-' . CRLF . CRLF +), qr|^\QHTTP/1.1 416\E.*(?!xxx)|ms, 'perl range not satisfiable'); + +} + # various request body tests like(http(