Mercurial > hg > nginx-tests
view smtp-greeting-delay.t @ 26:0880e0fafde4
Tests: implement smtp test backend and use it.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Thu, 02 Oct 2008 16:18:11 +0400 |
parents | 7e28c64edf55 |
children | fb94a224fef2 |
line wrap: on
line source
#!/usr/bin/perl # (C) Maxim Dounin ############################################################################### use warnings; use strict; use Test::More tests => 2; use MIME::Base64; use Socket qw/ CRLF /; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx; use Test::Nginx::SMTP; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->write_file_expand('nginx.conf', <<'EOF')->run(); master_process off; daemon off; events { worker_connections 1024; } mail { proxy_pass_error_message on; auth_http http://localhost:8080/mail/auth; xclient off; server { listen localhost:8025; protocol smtp; smtp_greeting_delay 100ms; } } 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"); ok($s->eof(), "session have to be closed"); ###############################################################################