Mercurial > hg > nginx-tests

comparison smtp-greeting-delay.t @ 66:b4f1e64882b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 ###############################################################################