Mercurial > hg > nginx-tests

comparison dav.t @ 1541:b9de5364dfc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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