Mercurial > hg > nginx-tests
comparison dav.t @ 1538:c49e5ca1d840
Tests: dav tests with unsupported request body.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Thu, 26 Dec 2019 18:55:56 +0300 |
parents | 0ce1c9516764 |
children | b9de5364dfc9 |
comparison
equal
deleted
inserted
replaced
1537:beb549bce15f | 1538:c49e5ca1d840 |
---|---|
19 ############################################################################### | 19 ############################################################################### |
20 | 20 |
21 select STDERR; $| = 1; | 21 select STDERR; $| = 1; |
22 select STDOUT; $| = 1; | 22 select STDOUT; $| = 1; |
23 | 23 |
24 my $t = Test::Nginx->new()->has(qw/http dav/)->plan(21); | 24 my $t = Test::Nginx->new()->has(qw/http dav/)->plan(27); |
25 | 25 |
26 $t->write_file_expand('nginx.conf', <<'EOF'); | 26 $t->write_file_expand('nginx.conf', <<'EOF'); |
27 | 27 |
28 %%TEST_GLOBALS%% | 28 %%TEST_GLOBALS%% |
29 | 29 |
180 | 180 |
181 like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'put alias'); | 181 like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'put alias'); |
182 like($r, qr!Location: /i/alias\x0d?$!ms, 'location alias'); | 182 like($r, qr!Location: /i/alias\x0d?$!ms, 'location alias'); |
183 is(-s $t->testdir() . '/alias', 10, 'put alias size'); | 183 is(-s $t->testdir() . '/alias', 10, 'put alias size'); |
184 | 184 |
185 ############################################################################### | 185 # request methods with unsupported request body |
186 | |
187 $r = http(<<EOF . '0123456789'); | |
188 MKCOL /test/ HTTP/1.1 | |
189 Host: localhost | |
190 Connection: close | |
191 Content-Length: 10 | |
192 | |
193 EOF | |
194 | |
195 like($r, qr/415 Unsupported/, 'mkcol body'); | |
196 | |
197 $r = http(<<EOF . '0123456789'); | |
198 COPY /file HTTP/1.1 | |
199 Host: localhost | |
200 Destination: /file.exist | |
201 Connection: close | |
202 Content-Length: 10 | |
203 | |
204 EOF | |
205 | |
206 like($r, qr/415 Unsupported/, 'copy body'); | |
207 | |
208 | |
209 $r = http(<<EOF . '0123456789'); | |
210 DELETE /file HTTP/1.1 | |
211 Host: localhost | |
212 Connection: close | |
213 Content-Length: 10 | |
214 | |
215 EOF | |
216 | |
217 like($r, qr/415 Unsupported/, 'delete body'); | |
218 | |
219 TODO: { | |
220 local $TODO = 'not yet' unless $t->has_version('1.17.7'); | |
221 | |
222 $r = http(<<EOF); | |
223 MKCOL /test/ HTTP/1.1 | |
224 Host: localhost | |
225 Connection: close | |
226 Transfer-Encoding: chunked | |
227 | |
228 a | |
229 0123456789 | |
230 0 | |
231 | |
232 EOF | |
233 | |
234 like($r, qr/415 Unsupported/, 'mkcol body chunked'); | |
235 | |
236 $r = http(<<EOF); | |
237 COPY /file HTTP/1.1 | |
238 Host: localhost | |
239 Destination: /file.exist | |
240 Connection: close | |
241 Transfer-Encoding: chunked | |
242 | |
243 a | |
244 0123456789 | |
245 0 | |
246 | |
247 EOF | |
248 | |
249 like($r, qr/415 Unsupported/, 'copy body chunked'); | |
250 | |
251 $r = http(<<EOF); | |
252 DELETE /file HTTP/1.1 | |
253 Host: localhost | |
254 Connection: close | |
255 Transfer-Encoding: chunked | |
256 | |
257 a | |
258 0123456789 | |
259 0 | |
260 | |
261 EOF | |
262 | |
263 like($r, qr/415 Unsupported/, 'delete body chunked'); | |
264 | |
265 } | |
266 | |
267 ############################################################################### |