comparison mail_imap_ssl.t @ 1085:30a6fbab4e33

Tests: allow new $ssl_verify syntax.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 05 Dec 2016 21:35:04 +0300
parents 1b11a12be179
children 0af58b78df35
comparison
equal deleted inserted replaced
1084:ce3d15edbf05 1085:30a6fbab4e33
214 214
215 my $f = $t->read_file('auth.log'); 215 my $f = $t->read_file('auth.log');
216 216
217 like($f, qr/^-:-:-:-:-:-:-\x0d?\x0a?:s1$/m, 'log - plain connection'); 217 like($f, qr/^-:-:-:-:-:-:-\x0d?\x0a?:s1$/m, 'log - plain connection');
218 like($f, qr/^on:NONE:-:-:-:-:-\x0d?\x0a?:s2$/m, 'log - no cert'); 218 like($f, qr/^on:NONE:-:-:-:-:-\x0d?\x0a?:s2$/m, 'log - no cert');
219 like($f, qr!^on:FAILED:(/?CN=1.example.com):\1:\w+:\w+:[^:]+:s3$!m, 219 like($f, qr!^on:FAILED(?:.*):(/?CN=1.example.com):\1:\w+:\w+:[^:]+:s3$!m,
220 'log - bad cert'); 220 'log - bad cert');
221 like($f, qr!^on:SUCCESS:(/?CN=2.example.com):\1:\w+:\w+:[^:]+:s4$!m, 221 like($f, qr!^on:SUCCESS:(/?CN=2.example.com):\1:\w+:\w+:[^:]+:s4$!m,
222 'log - good cert'); 222 'log - good cert');
223 like($f, qr!^on:SUCCESS:(/?CN=3.example.com):\1:\w+:\w+:[^:]+:s5$!m, 223 like($f, qr!^on:SUCCESS:(/?CN=3.example.com):\1:\w+:\w+:[^:]+:s5$!m,
224 'log - trusted cert'); 224 'log - trusted cert');