Mercurial > hg > nginx-tests
view mail_smtp_greeting_delay.t @ 172:d099e407fff5
Tests: tune sleep in limit_req.t to avoid spurious timeouts.
Tune sleep and increase rate accordingly (we have to sleep for at a delay
time and a bit more). This should still catch the original problem since
0.8.38 (where delay time for rates different from 1r/s was fixed).
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Wed, 31 Aug 2011 14:43:16 +0400 |
parents | c0ae29632905 |
children | 6a0d934950bc |
line wrap: on
line source
#!/usr/bin/perl # (C) Maxim Dounin ############################################################################### 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/mail smtp http/)->plan(2) ->write_file_expand('nginx.conf', <<'EOF')->run(); %%TEST_GLOBALS%% daemon off; 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; smtp_greeting_delay 100ms; } } http { # stub to avoid SIGSEGV when perl module compiled in, <= 0.7.30 } EOF ############################################################################### # With smtp_greeting_delay session expected to be closed after first error # message if client sent something before greeting. my $s = Test::Nginx::SMTP->new(); $s->send('HELO example.com'); $s->check(qr/^5.. /, "command before greeting - session must be rejected"); TODO: { local $TODO = 'not in official nginx yet'; ok($s->eof(), "session have to be closed"); } ###############################################################################