Mercurial > hg > nginx-tests
view scgi_body.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 | a9621dbbd0d4 |
line wrap: on
line source
#!/usr/bin/perl # (C) Maxim Dounin # Test for scgi backend with chunked request body. ############################################################################### 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; eval { require SCGI; }; plan(skip_all => 'SCGI not installed') if $@; my $t = Test::Nginx->new()->has(qw/http scgi/)->plan(5) ->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 / { scgi_pass 127.0.0.1:8081; scgi_param SCGI 1; scgi_param REQUEST_URI $request_uri; } } } EOF $t->run_daemon(\&scgi_daemon); $t->run(); ############################################################################### like(http_get('/'), qr/X-Body: /, 'scgi no body'); like(http_get_length('/', ''), qr/X-Body: /, 'scgi empty body'); like(http_get_length('/', 'foobar'), qr/X-Body: foobar/, 'scgi body'); TODO: { local $TODO = 'not yet' unless $t->has_version('1.3.9'); like(http(<<EOF), qr/X-Body: foobar/, 'scgi chunked'); GET / HTTP/1.1 Host: localhost Connection: close Transfer-Encoding: chunked 6 foobar 0 EOF like(http(<<EOF), qr/X-Body: /, 'scgi empty chunked'); GET / HTTP/1.1 Host: localhost Connection: close Transfer-Encoding: chunked 0 EOF } ############################################################################### sub http_get_length { my ($url, $body) = @_; my $length = length $body; return http(<<EOF); GET $url HTTP/1.1 Host: localhost Connection: close Content-Length: $length $body EOF } ############################################################################### sub scgi_daemon { my $server = IO::Socket::INET->new( Proto => 'tcp', LocalHost => '127.0.0.1:8081', Listen => 5, Reuse => 1 ) or die "Can't create listening socket: $!\n"; my $scgi = SCGI->new($server, blocking => 1); my $body; while (my $request = $scgi->accept()) { $request->read_env(); read($request->connection, $body, $request->env->{CONTENT_LENGTH}); $request->connection()->print(<<EOF); Location: http://127.0.0.1:8080/redirect Content-Type: text/html X-Body: $body SEE-THIS EOF } } ###############################################################################