Mercurial > hg > nginx-tests
diff dav.t @ 1541:b9de5364dfc9
Tests: unbreak dav tests on Perl < 5.12.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Sat, 28 Dec 2019 19:22:28 +0300 |
parents | c49e5ca1d840 |
children | 0d8531f744bc |
line wrap: on
line diff
--- a/dav.t +++ b/dav.t @@ -119,6 +119,9 @@ EOF like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'mkcol'); +SKIP: { +skip 'perl too old', 1 if !$^V or $^V lt v5.12.0; + TODO: { local $TODO = 'not yet' unless $t->has_version('1.17.7'); @@ -126,6 +129,8 @@ like($r, qr!(?(?{ $r =~ /Location/ })Loc } +} + $r = http(<<EOF); COPY /test/ HTTP/1.1 Host: localhost