Mercurial > hg > nginx-tests
view dav.t @ 296:a113f4d55b12
Tests: fix hang on exit after errors in child processes.
The f781b087b7aa moved test directory removal from File::Temp, where
it was protected by a pid check, into Test::Nginx destructor. As a
result destruction triggered due to a child process death now removes
temp directory, thus preventing main process from stopping nginx as
it no longer able to read nginx.pid.
Fix is to protect destructor with pid check.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sat, 08 Jun 2013 07:12:31 +0400 |
parents | 6a0d934950bc |
children | 0726521e42f3 |
line wrap: on
line source
#!/usr/bin/perl # (C) Maxim Dounin # Tests for nginx dav module. ############################################################################### use warnings; use strict; use Test::More; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->has(qw/http dav/)->plan(13); $t->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } http { %%TEST_GLOBALS_HTTP%% server { listen 127.0.0.1:8080; server_name localhost; location / { dav_methods PUT DELETE MKCOL COPY MOVE; } } } EOF $t->run(); ############################################################################### my $r; $r = http(<<EOF . '0123456789'); PUT /file HTTP/1.1 Host: localhost Connection: close Content-Length: 10 EOF like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'put file'); is(-s $t->testdir() . '/file', 10, 'put file size'); $r = http(<<EOF); PUT /file HTTP/1.1 Host: localhost Connection: close Content-Length: 0 EOF like($r, qr/204 No Content/, 'put file again'); unlike($r, qr/Content-Length|Transfer-Encoding/, 'no length in 204'); is(-s $t->testdir() . '/file', 0, 'put file again size'); $r = http(<<EOF); DELETE /file HTTP/1.1 Host: localhost Connection: close Content-Length: 0 EOF like($r, qr/204 No Content/, 'delete file'); unlike($r, qr/Content-Length|Transfer-Encoding/, 'no length in 204'); ok(!-f $t->testdir() . '/file', 'file deleted'); $r = http(<<EOF . '0123456789' . 'extra'); PUT /file HTTP/1.1 Host: localhost Connection: close Content-Length: 10 EOF like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'put file extra data'); is(-s $t->testdir() . '/file', 10, 'put file extra data size'); # 201 replies contain body, response should indicate it's empty $r = http(<<EOF); MKCOL /test/ HTTP/1.1 Host: localhost Connection: close EOF like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'mkcol'); $r = http(<<EOF); COPY /test/ HTTP/1.1 Host: localhost Destination: /test-moved/ Connection: close EOF like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'copy dir'); $r = http(<<EOF); MOVE /test/ HTTP/1.1 Host: localhost Destination: /test-moved/ Connection: close EOF like($r, qr/201.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'move dir'); ###############################################################################