Mercurial > hg > nginx-tests
view mail_smtp_greeting_delay.t @ 163:450206ed1fd2
Tests: move logging out of alarm.
Logging large amounts of data may be terminated by alarm() which isn't
really good (and likely to corrupt TAP output). Problem seen on limit_req.t
test with logging enabled.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Mon, 01 Aug 2011 21:23:49 +0400 |
parents | b5d0fcb02980 |
children | c0ae29632905 |
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%% master_process off; 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"); } ###############################################################################