Mercurial > hg > nginx-tests
view worker_shutdown_timeout_h2.t @ 1932:b68471aee5ad
Tests: improved test for a stream initiating QUIC path migration.
Previously, the test mostly passed due to a push timer scheduled for an
unrelated delayed ACK, and the new path had enough data received to send
response back when the push timer fired. Otherwise, the test could fail
due to unvalidated address. Now it is fixed to perform path validation.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Mon, 21 Aug 2023 17:10:57 +0400 |
parents | 236d038dc04a |
children | 11463d379570 |
line wrap: on
line source
#!/usr/bin/perl # (C) Sergey Kandaurov # (C) Nginx, Inc. # Tests for worker_shutdown_timeout and HTTP/2 with proxy. ############################################################################### use warnings; use strict; use Test::More; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx; use Test::Nginx::HTTP2; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->has(qw/http http_v2 proxy/)->plan(2); $t->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; worker_shutdown_timeout 10ms; events { } http { %%TEST_GLOBALS_HTTP%% server { listen 127.0.0.1:8080 http2; server_name localhost; location / { proxy_pass http://127.0.0.1:8081; proxy_read_timeout 5s; } } } EOF $t->run_daemon(\&http_silent_daemon); # suppress deprecation warning open OLDERR, ">&", \*STDERR; close STDERR; $t->run(); open STDERR, ">&", \*OLDERR; $t->waitforsocket('127.0.0.1:' . port(8081)); ############################################################################### my $s = Test::Nginx::HTTP2->new(); ok($s->new_stream(), 'new stream'); $s->h2_ping('SEE-THIS'); $s->read(all => [{ type => 'PING' }]); $t->stop(); like($t->read_file('access.log'), qr/ (?!504)\d{3} /, 'shutdown timeout'); ############################################################################### sub http_silent_daemon { my $server = IO::Socket::INET->new( Proto => 'tcp', LocalAddr => '127.0.0.1:' . port(8081), Listen => 5, Reuse => 1 ) or die "Can't create listening socket: $!\n"; while (my $client = $server->accept()) { $client->autoflush(1); while (<$client>) { } } } ###############################################################################