| ############################################################################### |
| BEGIN { use FindBin; chdir($FindBin::Bin); } |
| ############################################################################### |
| local $SIG{PIPE} = 'IGNORE'; |
| my $t = Test::Nginx->new()->has(qw/mail smtp http/)->plan(2) |
| ->write_file_expand('nginx.conf', <<'EOF')->run(); |
| proxy_pass_error_message on; |
| auth_http http://127.0.0.1:8080/mail/auth; |
| smtp_greeting_delay 100ms; |
| # stub to avoid SIGSEGV when perl module compiled in, <= 0.7.30 |
| ############################################################################### |
| # 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"); |
| local $TODO = 'not in official nginx yet'; |
| ok($s->eof(), "session have to be closed"); |
| ############################################################################### |