Mercurial > hg > nginx-tests
comparison smtp-greeting-delay.t @ 66:b4f1e64882b7
Tests: cleanup smtp-greeting-delay test.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Mon, 26 Jan 2009 19:22:53 +0300 |
parents | 726c3c2a8b8c |
children | 1c0ec30614c6 |
comparison
equal
deleted
inserted
replaced
65:02b82337a3ec | 66:b4f1e64882b7 |
---|---|
39 protocol smtp; | 39 protocol smtp; |
40 smtp_greeting_delay 100ms; | 40 smtp_greeting_delay 100ms; |
41 } | 41 } |
42 } | 42 } |
43 | 43 |
44 http { | |
45 # stub to avoid SIGSEGV when perl module compiled in, <= 0.7.30 | |
46 } | |
47 | |
44 EOF | 48 EOF |
45 | 49 |
46 ############################################################################### | 50 ############################################################################### |
47 | 51 |
48 # With smtp_greeting_delay session expected to be closed after first error | 52 # With smtp_greeting_delay session expected to be closed after first error |
49 # message if client sent something before greeting. | 53 # message if client sent something before greeting. |
50 | 54 |
51 my $s = Test::Nginx::SMTP->new(); | 55 my $s = Test::Nginx::SMTP->new(); |
52 $s->send('HELO example.com'); | 56 $s->send('HELO example.com'); |
53 $s->check(qr/^5.. /, "command before greeting - session must be rejected"); | 57 $s->check(qr/^5.. /, "command before greeting - session must be rejected"); |
58 | |
59 TODO: { | |
60 local $TODO = 'not in official nginx yet'; | |
61 | |
54 ok($s->eof(), "session have to be closed"); | 62 ok($s->eof(), "session have to be closed"); |
55 | 63 |
64 } | |
65 | |
56 ############################################################################### | 66 ############################################################################### |