Mercurial > hg > nginx-tests
diff perl.t @ 1693:5ac6efbe5552
Tests: removed TODO and try_run() checks for legacy versions.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 01 Jun 2021 16:40:18 +0300 |
parents | c2bbf805388d |
children | d7e019157cd7 |
line wrap: on
line diff
--- a/perl.t +++ b/perl.t @@ -196,29 +196,18 @@ like(http( ), qr/Content-Length: (?!42).*^xx\x0d.*^xxx\x0d/ms, 'perl header_out content-length multipart'); -TODO: { -local $TODO = 'not yet' unless $t->has_version('1.17.2'); - 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'); -} - -TODO: { -todo_skip 'leaves coredump', 1 unless $t->has_version('1.17.1') - or $ENV{TEST_NGINX_UNSAFE}; - like(http( 'GET / HTTP/1.0' . CRLF . 'Host: localhost' . CRLF . 'If-Match: tt' . CRLF . CRLF ), qr|200 OK|ms, 'perl precondition failed'); -} - # various request body tests like(http_get('/body'), qr/400 Bad Request/, 'perl no body'); @@ -287,9 +276,6 @@ like(http( . '0' . CRLF . CRLF ), qr/host: localhost/, 'perl body discard'); -TODO: { -local $TODO = 'not yet' unless $t->has_version('1.17.2'); - like(http( 'GET /discard HTTP/1.1' . CRLF . 'Host: localhost' . CRLF @@ -310,6 +296,4 @@ like(http( . '0' . CRLF . CRLF ), qr/400 Bad Request/, 'perl body bad chunk'); -} - ###############################################################################