blob: b7d1951a6fd3d588307c88f00661a3bd1ae9ee56 [file] [log] [blame]
#!/usr/bin/perl
# (C) Sergey Kandaurov
# (C) Nginx, Inc.
# Tests for worker_shutdown_timeout directive within the stream module.
###############################################################################
use warnings;
use strict;
use Test::More;
BEGIN { use FindBin; chdir($FindBin::Bin); }
use lib 'lib';
use Test::Nginx;
use Test::Nginx::SMTP;
###############################################################################
select STDERR; $| = 1;
select STDOUT; $| = 1;
local $SIG{PIPE} = 'IGNORE';
my $t = Test::Nginx->new()->has(qw/stream/)->plan(3)
->write_file_expand('nginx.conf', <<'EOF');
%%TEST_GLOBALS%%
daemon off;
worker_shutdown_timeout 10ms;
events {
}
stream {
server {
listen 127.0.0.1:8025;
proxy_pass 127.0.0.1:8026;
}
}
EOF
$t->run_daemon(\&Test::Nginx::SMTP::smtp_test_daemon);
$t->run()->waitforsocket('127.0.0.1:' . port(8026));
###############################################################################
my $s = Test::Nginx::SMTP->new();
$s->check(qr/^220 /, "greeting");
$s->send('EHLO example.com');
$s->check(qr/^250 /, "ehlo");
$t->reload();
ok($s->can_read(), 'stream connection shutdown');
undef $s;
1;
###############################################################################