Mercurial > hg > nginx-tests

annotate mail_imap.t @ 1976:4e79bd25642f default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: added test for headers without a colon.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 11 May 2024 18:56:23 +0300
parents 2a0a6035a1af
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
1 #!/usr/bin/perl
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
2
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
3 # (C) Maxim Dounin
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
4
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
5 # Tests for nginx mail imap module.
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
6
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
7 ###############################################################################
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
8
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
9 use warnings;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
10 use strict;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
11
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
12 use Test::More;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
13
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
14 use MIME::Base64;
1685
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
15 use Socket qw/ CRLF /;
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
16
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
17 BEGIN { use FindBin; chdir($FindBin::Bin); }
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
18
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
19 use lib 'lib';
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
20 use Test::Nginx;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
21 use Test::Nginx::IMAP;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
22
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
23 ###############################################################################
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
24
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
25 select STDERR; $| = 1;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
26 select STDOUT; $| = 1;
bc3351f157ef Tests: add basic pop3 and imap tests.
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: 75
diff changeset
28 local $SIG{PIPE} = 'IGNORE';
ecff5407867c Tests: better handle unexpected connection close from nginx.
Maxim Dounin <mdounin@mdounin.ru>
parents: 75
diff changeset
29
1111
6c2538ad642d Tests: auth external in mail is explicitly enabled since 1.11.9.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1110
diff changeset
30 my $t = Test::Nginx->new()->has(qw/mail imap http rewrite/)
976
a8b8dd6e8ae1 Tests: changed startup order in mail tests for consistency.
Andrey Zelenkov <zelenkov@nginx.com>
parents: 970
diff changeset
31 ->write_file_expand('nginx.conf', <<'EOF');
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
32
107
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks.
Maxim Dounin <mdounin@mdounin.ru>
parents: 96
diff changeset
33 %%TEST_GLOBALS%%
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks.
Maxim Dounin <mdounin@mdounin.ru>
parents: 96
diff changeset
34
249
6a0d934950bc Tests: remove extra spaces in "daemon off".
Maxim Dounin <mdounin@mdounin.ru>
parents: 166
diff changeset
35 daemon off;
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
36
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
37 events {
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
38 }
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
39
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
40 mail {
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
41 proxy_pass_error_message on;
1679
74986ebee2fd Tests: added proxy_timeout in mail tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1251
diff changeset
42 proxy_timeout 15s;
970
c227348453db Tests: simplified parallel modifications in mail tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 952
diff changeset
43 auth_http http://127.0.0.1:8080/mail/auth;
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
44
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
45 server {
970
c227348453db Tests: simplified parallel modifications in mail tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 952
diff changeset
46 listen 127.0.0.1:8143;
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
47 protocol imap;
1111
6c2538ad642d Tests: auth external in mail is explicitly enabled since 1.11.9.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1110
diff changeset
48 imap_auth plain cram-md5 external;
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
49 }
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
50 }
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
51
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
52 http {
107
1c0ec30614c6 Tests: add TEST_GLOBALS and TEST_GLOBALS_HTTP config chunks.
Maxim Dounin <mdounin@mdounin.ru>
parents: 96
diff changeset
53 %%TEST_GLOBALS_HTTP%%
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
54
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
55 server {
970
c227348453db Tests: simplified parallel modifications in mail tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 952
diff changeset
56 listen 127.0.0.1:8080;
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
57 server_name localhost;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
58
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
59 location = /mail/auth {
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
60 set $reply ERROR;
1109
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
61 set $passw "";
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
62
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
63 set $userpass "$http_auth_user:$http_auth_pass";
1685
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
64 if ($userpass = 'test@example.com:secret') {
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
65 set $reply OK;
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
66 }
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
67 if ($userpass = 'te\\"st@example.com:se\\"cret') {
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
68 set $reply OK;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
69 }
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
70
1109
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
71 set $userpass "$http_auth_user:$http_auth_salt:$http_auth_pass";
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
72 if ($userpass ~ '^test@example.com:<.*@.*>:0{32}$') {
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
73 set $reply OK;
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
74 set $passw secret;
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
75 }
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
76
1110
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
77 set $userpass "$http_auth_method:$http_auth_user:$http_auth_pass";
1685
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
78 if ($userpass = 'external:test@example.com:') {
1110
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
79 set $reply OK;
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
80 set $passw secret;
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
81 }
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
82
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
83 add_header Auth-Status $reply;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
84 add_header Auth-Server 127.0.0.1;
970
c227348453db Tests: simplified parallel modifications in mail tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 952
diff changeset
85 add_header Auth-Port %%PORT_8144%%;
1109
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
86 add_header Auth-Pass $passw;
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
87 add_header Auth-Wait 1;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
88 return 204;
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
89 }
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
90 }
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
91 }
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
92
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
93 EOF
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
94
976
a8b8dd6e8ae1 Tests: changed startup order in mail tests for consistency.
Andrey Zelenkov <zelenkov@nginx.com>
parents: 970
diff changeset
95 $t->run_daemon(\&Test::Nginx::IMAP::imap_test_daemon);
1686
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
96 $t->run()->plan(29);
1111
6c2538ad642d Tests: auth external in mail is explicitly enabled since 1.11.9.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1110
diff changeset
97
6c2538ad642d Tests: auth external in mail is explicitly enabled since 1.11.9.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1110
diff changeset
98 $t->waitforsocket('127.0.0.1:' . port(8144));
976
a8b8dd6e8ae1 Tests: changed startup order in mail tests for consistency.
Andrey Zelenkov <zelenkov@nginx.com>
parents: 970
diff changeset
99
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
100 ###############################################################################
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
101
1685
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
102 # login
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
103
970
c227348453db Tests: simplified parallel modifications in mail tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 952
diff changeset
104 my $s = Test::Nginx::IMAP->new();
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
105 $s->ok('greeting');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
106
1685
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
107 $s->send('a01 LOGIN');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
108 $s->check(qr/^a01 BAD/, 'login without arguments');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
109
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
110 $s->send('a02 LOGIN test@example.com bad');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
111 $s->check(qr/^a02 NO/, 'login with bad password');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
112
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
113 $s->send('a03 LOGIN test@example.com secret');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
114 $s->ok('login');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
115
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
116 # auth
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
117
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
118 $s = Test::Nginx::IMAP->new();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
119 $s->read();
151
1c39b7edc593 Tests: make sure imap authenticate without arguments fails.
Maxim Dounin <mdounin@mdounin.ru>
parents: 148
diff changeset
120
1c39b7edc593 Tests: make sure imap authenticate without arguments fails.
Maxim Dounin <mdounin@mdounin.ru>
parents: 148
diff changeset
121 $s->send('1 AUTHENTICATE');
1c39b7edc593 Tests: make sure imap authenticate without arguments fails.
Maxim Dounin <mdounin@mdounin.ru>
parents: 148
diff changeset
122 $s->check(qr/^\S+ BAD/, 'auth without arguments');
1c39b7edc593 Tests: make sure imap authenticate without arguments fails.
Maxim Dounin <mdounin@mdounin.ru>
parents: 148
diff changeset
123
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
124 # auth plain
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
125
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
126 $s->send('1 AUTHENTICATE PLAIN ' . encode_base64("\0test\@example.com\0bad", ''));
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
127 $s->check(qr/^\S+ NO/, 'auth plain with bad password');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
128
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
129 $s->send('1 AUTHENTICATE PLAIN ' . encode_base64("\0test\@example.com\0secret", ''));
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
130 $s->ok('auth plain');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
131
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
132 # auth login simple
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
133
970
c227348453db Tests: simplified parallel modifications in mail tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 952
diff changeset
134 $s = Test::Nginx::IMAP->new();
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
135 $s->read();
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
136
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
137 $s->send('1 AUTHENTICATE LOGIN');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
138 $s->check(qr/\+ VXNlcm5hbWU6/, 'auth login username challenge');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
139
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
140 $s->send(encode_base64('test@example.com', ''));
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
141 $s->check(qr/\+ UGFzc3dvcmQ6/, 'auth login password challenge');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
142
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
143 $s->send(encode_base64('secret', ''));
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
144 $s->ok('auth login simple');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
145
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
146 # auth login with username
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
147
970
c227348453db Tests: simplified parallel modifications in mail tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 952
diff changeset
148 $s = Test::Nginx::IMAP->new();
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
149 $s->read();
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
150
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
151 $s->send('1 AUTHENTICATE LOGIN ' . encode_base64('test@example.com', ''));
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
152 $s->check(qr/\+ UGFzc3dvcmQ6/, 'auth login with username password challenge');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
153
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
154 $s->send(encode_base64('secret', ''));
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
155 $s->ok('auth login with username');
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
156
1109
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
157 # auth cram-md5
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
158
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
159 $s = Test::Nginx::IMAP->new();
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
160 $s->read();
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
161
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
162 $s->send('1 AUTHENTICATE CRAM-MD5');
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
163 $s->check(qr/\+ /, 'auth cram-md5 challenge');
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
164
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
165 $s->send(encode_base64('test@example.com ' . ('0' x 32), ''));
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
166 $s->ok('auth cram-md5');
59d5c8ca7e4d Tests: auth cram-md5 mail tests, pop3 user/pass and apop tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 976
diff changeset
167
1110
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
168 # auth external
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
169
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
170 $s = Test::Nginx::IMAP->new();
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
171 $s->read();
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
172
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
173 $s->send('1 AUTHENTICATE EXTERNAL');
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
174 $s->check(qr/\+ VXNlcm5hbWU6/, 'auth external challenge');
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
175
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
176 $s->send(encode_base64('test@example.com', ''));
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
177 $s->ok('auth external');
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
178
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
179 # auth external with username
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
180
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
181 $s = Test::Nginx::IMAP->new();
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
182 $s->read();
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
183
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
184 $s->send('1 AUTHENTICATE EXTERNAL ' . encode_base64('test@example.com', ''));
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
185 $s->ok('auth external with username');
b9b115a2a28d Tests: auth external mail tests.
Sergey Kandaurov <pluknet@nginx.com>
parents: 1109
diff changeset
186
1685
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
187 # quoted strings
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
188
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
189 $s = Test::Nginx::IMAP->new();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
190 $s->read();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
191
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
192 $s->send('a01 LOGIN "te\\\\\"st@example.com" "se\\\\\"cret"');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
193 $s->ok('quoted strings');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
194
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
195 # literals
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
196
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
197 $s = Test::Nginx::IMAP->new();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
198 $s->read();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
199
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
200 $s->send('a01 LOGIN {18}');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
201 $s->check(qr/\+ /, 'login username literal continue');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
202
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
203 $s->send('te\"st@example.com' . ' {8}');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
204 $s->check(qr/\+ /, 'login password literal continue');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
205
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
206 $s->send('se\"cret');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
207 $s->ok('login literals');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
208
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
209 # non-synchronizing literals
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
210
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
211 $s = Test::Nginx::IMAP->new();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
212 $s->read();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
213
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
214 $s->send('a01 LOGIN {18+}' . CRLF
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
215 . 'te\"st@example.com' . ' {8+}' . CRLF
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
216 . 'se\"cret');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
217 $s->ok('login non-sync literals');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
218
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
219 # backslash in quotes and literals
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
220
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
221 $s = Test::Nginx::IMAP->new();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
222 $s->read();
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
223
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
224 $s->send('a01 LOGIN {18+}' . CRLF
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
225 . 'te\"st@example.com' . ' "se\\\\\"cret"');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
226 $s->ok('backslash in literal');
869b312c214e Tests: additional IMAP tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1680
diff changeset
227
1686
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
228 # pipelining
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
229
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
230 $s = Test::Nginx::IMAP->new();
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
231 $s->read();
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
232
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
233 $s->send('a01 INVALID COMMAND WITH ARGUMENTS' . CRLF
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
234 . 'a02 NOOP');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
235 $s->check(qr/^a01 BAD/, 'pipelined invalid command');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
236 $s->ok('pipelined noop after invalid command');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
237
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
238 $s->send('a03 FOOBAR {10+}' . CRLF
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
239 . 'test test ' . CRLF
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
240 . 'a04 NOOP');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
241 $s->check(qr/^a03 BAD/, 'invalid with non-sync literal');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
242 $s->check(qr/^(a04 |$)/, 'literal not command');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
243
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
244 # skipped without a fix, since with level-triggered event methods
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
245 # this hogs cpu till the connection is closed by the backend server,
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
246 # and generates a lot of debug logs
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
247
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
248 $s = Test::Nginx::IMAP->new();
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
249 $s->read();
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
250
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
251 $s->send('a01 LOGIN test@example.com secret' . CRLF
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
252 . 'a02 LOGOUT');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
253 $s->ok('pipelined login');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
254 $s->ok('pipelined logout');
156cb84b3c23 Tests: IMAP pipelining tests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1685
diff changeset
255
59
bc3351f157ef Tests: add basic pop3 and imap tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
256 ###############################################################################