Mercurial > hg > nginx-tests
changeset 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 | 660147bfe68c |
children | eb813f7e0bfa |
files | perl.t |
diffstat | 1 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/perl.t Tue May 30 22:26:00 2017 +0300 +++ b/perl.t Fri Jun 02 13:28:04 2017 +0300 @@ -23,7 +23,7 @@ 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 @@ ), 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(