Mercurial > hg > nginx-tests
changeset 1244:575d39cc0e35
Tests: worker_shutdown_timeout within the mail module.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Mon, 20 Nov 2017 17:55:22 +0300 |
parents | 6ea73d9f42e0 |
children | 6d7707405632 |
files | lib/Test/Nginx/IMAP.pm lib/Test/Nginx/POP3.pm lib/Test/Nginx/SMTP.pm worker_shutdown_timeout_mail.t |
diffstat | 4 files changed, 114 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/Test/Nginx/IMAP.pm Mon Nov 20 12:42:01 2017 +0300 +++ b/lib/Test/Nginx/IMAP.pm Mon Nov 20 17:55:22 2017 +0300 @@ -10,6 +10,7 @@ use strict; use Test::More qw//; +use IO::Select; use IO::Socket; use Socket qw/ CRLF /; @@ -86,6 +87,11 @@ Test::More->builder->like($self->read(), qr/^\S+ OK/, @_); } +sub can_read { + my ($self, $timo) = @_; + IO::Select->new($self->{_socket})->can_read($timo || 3); +} + ############################################################################### sub imap_test_daemon {
--- a/lib/Test/Nginx/POP3.pm Mon Nov 20 12:42:01 2017 +0300 +++ b/lib/Test/Nginx/POP3.pm Mon Nov 20 17:55:22 2017 +0300 @@ -10,6 +10,7 @@ use strict; use Test::More qw//; +use IO::Select; use IO::Socket; use Socket qw/ CRLF /; @@ -86,6 +87,11 @@ Test::More->builder->like($self->read(), qr/^\+OK/, @_); } +sub can_read { + my ($self, $timo) = @_; + IO::Select->new($self->{_socket})->can_read($timo || 3); +} + ############################################################################### sub pop3_test_daemon {
--- a/lib/Test/Nginx/SMTP.pm Mon Nov 20 12:42:01 2017 +0300 +++ b/lib/Test/Nginx/SMTP.pm Mon Nov 20 17:55:22 2017 +0300 @@ -10,6 +10,7 @@ use strict; use Test::More qw//; +use IO::Select; use IO::Socket; use Socket qw/ CRLF /; @@ -90,6 +91,11 @@ Test::More->builder->like($self->read(), qr/^235 /, @_); } +sub can_read { + my ($self, $timo) = @_; + IO::Select->new($self->{_socket})->can_read($timo || 3); +} + ############################################################################### sub smtp_test_daemon {
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/worker_shutdown_timeout_mail.t Mon Nov 20 17:55:22 2017 +0300 @@ -0,0 +1,96 @@ +#!/usr/bin/perl + +# (C) Sergey Kandaurov +# (C) Nginx, Inc. + +# Tests for worker_shutdown_timeout directive within the mail module. + +############################################################################### + +use warnings; +use strict; + +use Test::More; + +use MIME::Base64; + +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/mail imap http rewrite/)->plan(4) + ->write_file_expand('nginx.conf', <<'EOF'); + +%%TEST_GLOBALS%% + +daemon off; +worker_shutdown_timeout 10ms; + +events { +} + +mail { + proxy_pass_error_message on; + auth_http http://127.0.0.1:8080/mail/auth; + xclient off; + + server { + listen 127.0.0.1:8025; + protocol smtp; + } +} + +http { + %%TEST_GLOBALS_HTTP%% + + server { + listen 127.0.0.1:8080; + server_name localhost; + + location = /mail/auth { + add_header Auth-Status OK; + add_header Auth-Server 127.0.0.1; + add_header Auth-Port %%PORT_8026%%; + add_header Auth-Wait 1; + return 204; + } + } +} + +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"); + +$s->send('AUTH PLAIN ' . encode_base64("\0test\@example.com\0secret", '')); +$s->authok('auth plain'); + +$t->reload(); + +TODO: { +local $TODO = 'not yet' unless $t->has_version('1.13.7'); + +ok($s->can_read(), 'mail connection shutdown'); + +} + +undef $s; + +###############################################################################