Mercurial > hg > nginx-tests
comparison 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 |
comparison
equal
deleted
inserted
replaced
1540:5e2b8621aa5d | 1541:b9de5364dfc9 |
---|---|
117 | 117 |
118 EOF | 118 EOF |
119 | 119 |
120 like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'mkcol'); | 120 like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'mkcol'); |
121 | 121 |
122 SKIP: { | |
123 skip 'perl too old', 1 if !$^V or $^V lt v5.12.0; | |
124 | |
122 TODO: { | 125 TODO: { |
123 local $TODO = 'not yet' unless $t->has_version('1.17.7'); | 126 local $TODO = 'not yet' unless $t->has_version('1.17.7'); |
124 | 127 |
125 like($r, qr!(?(?{ $r =~ /Location/ })Location: /test/)!, 'mkcol location'); | 128 like($r, qr!(?(?{ $r =~ /Location/ })Location: /test/)!, 'mkcol location'); |
129 | |
130 } | |
126 | 131 |
127 } | 132 } |
128 | 133 |
129 $r = http(<<EOF); | 134 $r = http(<<EOF); |
130 COPY /test/ HTTP/1.1 | 135 COPY /test/ HTTP/1.1 |