Mercurial > hg > nginx-tests

comparison perl.t @ 1490:8f79fac049df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: adjusted perl.t TODO for not satisfiable range.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 12 Jul 2019 18:27:10 +0300
parents 82be9398a9fa
children c2bbf805388d
comparison
equal deleted inserted replaced
1489:82be9398a9fa 1490:8f79fac049df
176 . 'Range: bytes=0-1,3-5' . CRLF . CRLF 176 . 'Range: bytes=0-1,3-5' . CRLF . CRLF
177 ), qr/Content-Length: (?!42).*^xx\x0d.*^xxx\x0d/ms, 177 ), qr/Content-Length: (?!42).*^xx\x0d.*^xxx\x0d/ms,
178 'perl header_out content-length multipart'); 178 'perl header_out content-length multipart');
179 179
180 TODO: { 180 TODO: {
181 local $TODO = 'not yet'; 181 local $TODO = 'not yet' unless $t->has_version('1.17.2');
182 182
183 like(http( 183 like(http(
184 'GET /range HTTP/1.0' . CRLF 184 'GET /range HTTP/1.0' . CRLF
185 . 'Host: localhost' . CRLF 185 . 'Host: localhost' . CRLF
186 . 'Range: bytes=100000-' . CRLF . CRLF 186 . 'Range: bytes=100000-' . CRLF . CRLF