Mercurial > hg > nginx-tests

annotate smtp.t @ 96:ecff5407867c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: better handle unexpected connection close from nginx. Problem found when running test suite indefinitely against nginx with intentionally broken malloc().
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 08 Jun 2009 23:27:30 +0400
parents 24143894b91b
children 1c0ec30614c6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
1 #!/usr/bin/perl
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
2
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
3 # (C) Maxim Dounin
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
4
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
5 # Tests for nginx mail smtp module.
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
6
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
7 ###############################################################################
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
8
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
9 use warnings;
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
10 use strict;
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
11
27
fb94a224fef2 Tests: add has() functions for feature testing.
Maxim Dounin <mdounin@mdounin.ru>
parents: 26
diff changeset
12 use Test::More;
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
13
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
14 use MIME::Base64;
7
9eb509695651 Tests: drop our own CRLF constant, use Socket's one instead.
Maxim Dounin <mdounin@mdounin.ru>
parents: 5
diff changeset
15 use Socket qw/ CRLF /;
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
16
9
f772e2a1a13f Tests: change directory to allow runing from outside.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7
diff changeset
17 BEGIN { use FindBin; chdir($FindBin::Bin); }
f772e2a1a13f Tests: change directory to allow runing from outside.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7
diff changeset
18
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
19 use lib 'lib';
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
20 use Test::Nginx;
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
21 use Test::Nginx::SMTP;
5
4d75bdb05ecf Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4
diff changeset
22
4d75bdb05ecf Tests: some generic code and ssi tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4
diff changeset
23 ###############################################################################
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
24
2
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
25 select STDERR; $| = 1;
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
26 select STDOUT; $| = 1;
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
27
96
ecff5407867c Tests: better handle unexpected connection close from nginx.
Maxim Dounin <mdounin@mdounin.ru>
parents: 72
diff changeset
28 local $SIG{PIPE} = 'IGNORE';
ecff5407867c Tests: better handle unexpected connection close from nginx.
Maxim Dounin <mdounin@mdounin.ru>
parents: 72
diff changeset
29
26
0880e0fafde4 Tests: implement smtp test backend and use it.
Maxim Dounin <mdounin@mdounin.ru>
parents: 17
diff changeset
30 my $t = Test::Nginx->new()
58
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
31 ->has('mail')->plan(25)
26
0880e0fafde4 Tests: implement smtp test backend and use it.
Maxim Dounin <mdounin@mdounin.ru>
parents: 17
diff changeset
32 ->run_daemon(\&Test::Nginx::SMTP::smtp_test_daemon)
0880e0fafde4 Tests: implement smtp test backend and use it.
Maxim Dounin <mdounin@mdounin.ru>
parents: 17
diff changeset
33 ->write_file_expand('nginx.conf', <<'EOF')->run();
17
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
34
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
35 master_process off;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
36 daemon off;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
37
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
38 events {
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
39 }
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
40
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
41 mail {
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
42 proxy_pass_error_message on;
45
d68b85def521 Tests: use 127.0.0.1 instead of localhost.
Maxim Dounin <mdounin@mdounin.ru>
parents: 35
diff changeset
43 auth_http http://127.0.0.1:8080/mail/auth;
17
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
44 xclient off;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
45
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
46 server {
45
d68b85def521 Tests: use 127.0.0.1 instead of localhost.
Maxim Dounin <mdounin@mdounin.ru>
parents: 35
diff changeset
47 listen 127.0.0.1:8025;
17
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
48 protocol smtp;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
49 smtp_auth login plain none;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
50 }
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
51 }
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
52
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
53 http {
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
54 access_log off;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
55
35
7bf0e8a1d66c Tests: always define temp paths.
Maxim Dounin <mdounin@mdounin.ru>
parents: 28
diff changeset
56 client_body_temp_path %%TESTDIR%%/client_body_temp;
7bf0e8a1d66c Tests: always define temp paths.
Maxim Dounin <mdounin@mdounin.ru>
parents: 28
diff changeset
57 fastcgi_temp_path %%TESTDIR%%/fastcgi_temp;
7bf0e8a1d66c Tests: always define temp paths.
Maxim Dounin <mdounin@mdounin.ru>
parents: 28
diff changeset
58 proxy_temp_path %%TESTDIR%%/proxy_temp;
7bf0e8a1d66c Tests: always define temp paths.
Maxim Dounin <mdounin@mdounin.ru>
parents: 28
diff changeset
59
17
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
60 server {
45
d68b85def521 Tests: use 127.0.0.1 instead of localhost.
Maxim Dounin <mdounin@mdounin.ru>
parents: 35
diff changeset
61 listen 127.0.0.1:8080;
17
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
62 server_name localhost;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
63
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
64 location = /mail/auth {
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
65 set $reply ERROR;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
66
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
67 if ($http_auth_smtp_to ~ example.com) {
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
68 set $reply OK;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
69 }
56
573c8293ac38 Tests: fix smtp auth plain tests to check username.
Maxim Dounin <mdounin@mdounin.ru>
parents: 45
diff changeset
70
573c8293ac38 Tests: fix smtp auth plain tests to check username.
Maxim Dounin <mdounin@mdounin.ru>
parents: 45
diff changeset
71 set $userpass "$http_auth_user:$http_auth_pass";
573c8293ac38 Tests: fix smtp auth plain tests to check username.
Maxim Dounin <mdounin@mdounin.ru>
parents: 45
diff changeset
72 if ($userpass ~ '^test@example.com:secret$') {
17
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
73 set $reply OK;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
74 }
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
75
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
76 add_header Auth-Status $reply;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
77 add_header Auth-Server 127.0.0.1;
26
0880e0fafde4 Tests: implement smtp test backend and use it.
Maxim Dounin <mdounin@mdounin.ru>
parents: 17
diff changeset
78 add_header Auth-Port 8026;
17
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
79 add_header Auth-Wait 1;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
80 return 204;
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
81 }
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
82 }
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
83 }
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
84
7e28c64edf55 Tests: reorganize smtp tests (no real changes).
Maxim Dounin <mdounin@mdounin.ru>
parents: 14
diff changeset
85 EOF
4
6c41dbb2954f Tests: run nginx with appropriate config from test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents: 3
diff changeset
86
6c41dbb2954f Tests: run nginx with appropriate config from test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents: 3
diff changeset
87 ###############################################################################
6c41dbb2954f Tests: run nginx with appropriate config from test itself.
Maxim Dounin <mdounin@mdounin.ru>
parents: 3
diff changeset
88
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
89 my $s = Test::Nginx::SMTP->new();
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
90 $s->check(qr/^220 /, "greeting");
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
91
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
92 $s->send('EHLO example.com');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
93 $s->check(qr/^250 /, "ehlo");
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
94
56
573c8293ac38 Tests: fix smtp auth plain tests to check username.
Maxim Dounin <mdounin@mdounin.ru>
parents: 45
diff changeset
95 $s->send('AUTH PLAIN ' . encode_base64("\0test\@example.com\0bad", ''));
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
96 $s->check(qr/^5.. /, 'auth plain with bad password');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
97
56
573c8293ac38 Tests: fix smtp auth plain tests to check username.
Maxim Dounin <mdounin@mdounin.ru>
parents: 45
diff changeset
98 $s->send('AUTH PLAIN ' . encode_base64("\0test\@example.com\0secret", ''));
69
30d6cce3f0bd Tests: more checks for 235 code on successful smtp auth.
Maxim Dounin <mdounin@mdounin.ru>
parents: 64
diff changeset
99 $s->authok('auth plain');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
100
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
101 # We are talking to backend from this point
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
102
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
103 $s->send('MAIL FROM:<test@example.com> SIZE=100');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
104 $s->ok('mail from after auth');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
105
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
106 $s->send('RSET');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
107 $s->ok('rset');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
108
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
109 $s->send('MAIL FROM:<test@xn--e1afmkfd.xn--80akhbyknj4f> SIZE=100');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
110 $s->ok("idn mail from (example.test in russian)");
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
111
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
112 $s->send('QUIT');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
113 $s->ok("quit");
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
114
58
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
115 # Try auth login in simple form
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
116
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
117 $s = Test::Nginx::SMTP->new();
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
118 $s->read();
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
119 $s->send('EHLO example.com');
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
120 $s->read();
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
121
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
122 $s->send('AUTH LOGIN');
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
123 $s->check(qr/^334 VXNlcm5hbWU6/, 'auth login simple username challenge');
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
124 $s->send(encode_base64('test@example.com', ''));
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
125 $s->check(qr/^334 UGFzc3dvcmQ6/, 'auth login simple password challenge');
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
126 $s->send(encode_base64('secret', ''));
69
30d6cce3f0bd Tests: more checks for 235 code on successful smtp auth.
Maxim Dounin <mdounin@mdounin.ru>
parents: 64
diff changeset
127 $s->authok('auth login simple');
58
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
128
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
129 # Try auth plain with username. Details:
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
130 #
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
131 # [MS-XLOGIN]: SMTP Protocol AUTH LOGIN Extension Specification
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
132 # http://download.microsoft.com/download/5/D/D/5DD33FDF-91F5-496D-9884-0A0B0EE698BB/%5BMS-XLOGIN%5D.pdf
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
133
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
134 $s = Test::Nginx::SMTP->new();
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
135 $s->read();
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
136 $s->send('EHLO example.com');
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
137 $s->read();
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
138
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
139 $s->send('AUTH LOGIN ' . encode_base64('test@example.com', ''));
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
140 $s->check(qr/^334 UGFzc3dvcmQ6/, 'auth login with username password challenge');
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
141 $s->send(encode_base64('secret', ''));
60
11e33ba0656a Tests: check for 235 code on successful smtp auth.
Maxim Dounin <mdounin@mdounin.ru>
parents: 58
diff changeset
142 $s->authok('auth login with username');
58
d053b4bf6ec6 Tests: add smtp auth login tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 57
diff changeset
143
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
144 # Try auth plain with pipelining
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
145
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
146 TODO: {
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
147 local $TODO = 'pipelining not in official nginx';
72
24143894b91b Tests: shut up warnings for TODO tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 71
diff changeset
148 local $SIG{__WARN__} = sub {};
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
149
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
150 $s = Test::Nginx::SMTP->new();
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
151 $s->read();
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
152 $s->send('EHLO example.com');
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
153 $s->read();
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
154
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
155 $s->send('INVALID COMMAND WITH ARGUMENTS' . CRLF
2
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
156 . 'RSET');
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
157 $s->read();
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
158 $s->ok('pipelined rset after invalid command');
1
c731d50dd6b1 Tests: check pipelining after invalid command.
Maxim Dounin <mdounin@mdounin.ru>
parents: 0
diff changeset
159
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
160 $s->send('AUTH PLAIN '
56
573c8293ac38 Tests: fix smtp auth plain tests to check username.
Maxim Dounin <mdounin@mdounin.ru>
parents: 45
diff changeset
161 . encode_base64("\0test\@example.com\0bad", '') . CRLF
2
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
162 . 'MAIL FROM:<test@example.com> SIZE=100');
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
163 $s->read();
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
164 $s->ok('mail from after failed pipelined auth');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
165
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
166 $s->send('AUTH PLAIN '
56
573c8293ac38 Tests: fix smtp auth plain tests to check username.
Maxim Dounin <mdounin@mdounin.ru>
parents: 45
diff changeset
167 . encode_base64("\0test\@example.com\0secret", '') . CRLF
2
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
168 . 'MAIL FROM:<test@example.com> SIZE=100');
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
169 $s->read();
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
170 $s->ok('mail from after pipelined auth');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
171
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
172 }
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
173
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
174 # Try auth none
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
175
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
176 $s = Test::Nginx::SMTP->new();
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
177 $s->read();
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
178 $s->send('EHLO example.com');
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
179 $s->read();
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
180
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
181 $s->send('MAIL FROM:<test@example.com> SIZE=100');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
182 $s->ok('auth none - mail from');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
183
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
184 $s->send('RCPT TO:<test@example.com>');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
185 $s->ok('auth none - rcpt to');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
186
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
187 $s->send('RSET');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
188 $s->ok('auth none - rset, should go to backend');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
189
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
190 # Auth none with pipelining
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
191
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
192 $s = Test::Nginx::SMTP->new();
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
193 $s->read();
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
194 $s->send('EHLO example.com');
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
195 $s->read();
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
196
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
197 $s->send('MAIL FROM:<test@example.com> SIZE=100' . CRLF
2
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
198 . 'RCPT TO:<test@example.com>' . CRLF
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
199 . 'RSET');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
200
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
201 $s->ok('pipelined mail from');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
202
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
203 TODO: {
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
204 local $TODO = 'pipelining not in official nginx';
72
24143894b91b Tests: shut up warnings for TODO tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 71
diff changeset
205 local $SIG{__WARN__} = sub {};
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
206
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
207 $s->ok('pipelined rcpt to');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
208 $s->ok('pipelined rset');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
209
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
210 }
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
211
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
212 # Connection must stay even if error returned to rcpt to command
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
213
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
214 $s = Test::Nginx::SMTP->new();
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
215 $s->read();
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
216 $s->send('EHLO example.com');
57
b5b4271554b0 Test: use TODO for smtp pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 56
diff changeset
217 $s->read();
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
218
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
219 $s->send('MAIL FROM:<test@example.com> SIZE=100');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
220 $s->read(); # skip mail from reply
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
221
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
222 $s->send('RCPT TO:<example.com>');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
223 $s->check(qr/^5.. /, "bad rcpt to");
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
224
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
225 $s->send('RCPT TO:<test@example.com>');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
226 $s->ok('good rcpt to');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
227
2
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
228 # Make sure command splitted into many packets processed correctly
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
229
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
230 $s = Test::Nginx::SMTP->new();
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
231 $s->read();
2
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
232
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
233 log_out('HEL');
33cb557f69d4 Tests: smtp pipelining is here, remove todo flags.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1
diff changeset
234 $s->print('HEL');
14
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
235 $s->send('O example.com');
d4b74207a627 Tests: refactor common functions.
Maxim Dounin <mdounin@mdounin.ru>
parents: 9
diff changeset
236 $s->ok('splitted command');
0
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
237
de28d9f761be Tests for nginx. Initial smtp testing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
238 ###############################################################################