Mercurial > hg > nginx-tests
view smtp-greeting-delay.t @ 103:4ae2198b97ec
Tests: limit_req tests for 0.8.18 changes and bug.
1. Make sure rejected requests are not counted, as leaky bucket algorithm
suggests (finally correctly done in 0.8.18).
2. Make sure negative excess values are handled properly (bug appeared in
0.8.18, fixed in 0.8.19).
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Fri, 09 Oct 2009 21:05:42 +0400 |
parents | b4f1e64882b7 |
children | 1c0ec30614c6 |
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; my $t = Test::Nginx->new()->has('mail')->plan(2) ->write_file_expand('nginx.conf', <<'EOF')->run(); 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"); } ###############################################################################