Mercurial > hg > nginx-tests
annotate mail_max_errors.t @ 1965:84f4d4930835
Tests: relaxed mail_imap_ssl.t cipher matching.
Previously, exact match between cipher name in the log and the one from
IO::Socket:SSL was needed, which might not be the case if nginx and
Net::SSLeay are compiled with different SSL libraries, notably LibreSSL
(which uses names like AEAD-AES256-GCM-SHA384 till 3.5.0), and
OpenSSL or BoringSSL (which use TLS_AES_256_GCM_SHA384). In particular,
this affects macOS, where Net::SSLeay compiled with LibreSSL 3.3.6 is
shipped with the OS, while nginx is likely to be compiled with OpenSSL.
Fix is to not require exact match but instead accept properly looking names
as checked by a regular expression, similarly to how it is already tested
in ssl.t and stream_ssl_variables.t.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Mon, 06 May 2024 00:01:40 +0300 |
parents | 2a0a6035a1af |
children |
rev | line source |
---|---|
1687
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
2 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
4 # (C) Nginx, Inc. |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
5 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
6 # Tests for mail max_errors. |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
7 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
8 ############################################################################### |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
9 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
10 use warnings; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
11 use strict; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
12 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
13 use Test::More; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
14 use Socket qw/ CRLF /; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
15 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
16 BEGIN { use FindBin; chdir($FindBin::Bin); } |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
17 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
18 use lib 'lib'; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
19 use Test::Nginx; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
20 use Test::Nginx::IMAP; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
21 use Test::Nginx::POP3; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
22 use Test::Nginx::SMTP; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
23 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
24 ############################################################################### |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
25 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
26 select STDERR; $| = 1; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
27 select STDOUT; $| = 1; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
28 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
29 local $SIG{PIPE} = 'IGNORE'; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
30 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
31 my $t = Test::Nginx->new()->has(qw/mail imap pop3 smtp/) |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
32 ->write_file_expand('nginx.conf', <<'EOF'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
33 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
34 %%TEST_GLOBALS%% |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
35 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
36 daemon off; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
37 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
38 events { |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
39 } |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
40 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
41 mail { |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
42 auth_http http://127.0.0.1:8080; # unused |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
43 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
44 max_errors 2; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
45 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
46 server { |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
47 listen 127.0.0.1:8143; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
48 protocol imap; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
49 } |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
50 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
51 server { |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
52 listen 127.0.0.1:8110; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
53 protocol pop3; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
54 } |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
55 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
56 server { |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
57 listen 127.0.0.1:8025; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
58 protocol smtp; |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
59 } |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
60 } |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
61 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
62 EOF |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
63 |
1937
2a0a6035a1af
Tests: removed TODO and try_run() checks for legacy versions.
Sergey Kandaurov <pluknet@nginx.com>
parents:
1687
diff
changeset
|
64 $t->run()->plan(18); |
1687
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
65 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
66 ############################################################################### |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
67 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
68 # imap |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
69 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
70 my $s = Test::Nginx::IMAP->new(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
71 $s->read(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
72 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
73 $s->send('a01 FOO'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
74 $s->check(qr/^a01 BAD/, 'imap first error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
75 $s->send('a02 BAR'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
76 $s->check(qr/^a02 BAD/, 'imap second error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
77 $s->send('a03 BAZZ'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
78 $s->check(qr/^$/, 'imap max errors'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
79 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
80 $s = Test::Nginx::IMAP->new(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
81 $s->read(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
82 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
83 $s->send('a01 FOO' . CRLF . 'a02 BAR' . CRLF . 'a03 BAZZ'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
84 $s->check(qr/^a01 BAD/, 'imap pipelined first error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
85 $s->check(qr/^a02 BAD/, 'imap pipelined second error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
86 $s->check(qr/^$/, 'imap pipelined max errors'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
87 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
88 # pop3 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
89 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
90 $s = Test::Nginx::POP3->new(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
91 $s->read(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
92 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
93 $s->send('FOO'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
94 $s->check(qr/^-ERR/, 'pop3 first error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
95 $s->send('BAR'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
96 $s->check(qr/^-ERR/, 'pop3 second error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
97 $s->send('BAZZ'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
98 $s->check(qr/^$/, 'pop3 max errors'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
99 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
100 $s = Test::Nginx::POP3->new(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
101 $s->read(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
102 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
103 $s->send('FOO' . CRLF . 'BAR' . CRLF . 'BAZZ'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
104 $s->check(qr/^-ERR/, 'pop3 pipelined first error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
105 $s->check(qr/^-ERR/, 'pop3 pipelined second error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
106 $s->check(qr/^$/, 'pop3 pipelined max errors'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
107 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
108 # smtp |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
109 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
110 $s = Test::Nginx::SMTP->new(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
111 $s->read(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
112 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
113 $s->send('FOO'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
114 $s->check(qr/^5.. /, 'smtp first error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
115 $s->send('BAR'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
116 $s->check(qr/^5.. /, 'smtp second error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
117 $s->send('BAZZ'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
118 $s->check(qr/^$/, 'smtp max errors'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
119 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
120 $s = Test::Nginx::SMTP->new(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
121 $s->read(); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
122 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
123 $s->send('FOO' . CRLF . 'BAR' . CRLF . 'BAZZ'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
124 $s->check(qr/^5.. /, 'smtp pipelined first error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
125 $s->check(qr/^5.. /, 'smtp pipelined second error'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
126 $s->check(qr/^$/, 'smtp pipelined max errors'); |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
127 |
41b213d611f5
Tests: mail max_errors tests.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
128 ############################################################################### |