# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1480962904 -10800
# Node ID 30a6fbab4e337951e224db6cfaf901bd841cbb05
# Parent  ce3d15edbf05b845d68bd3d53f44b41ab5d6a950
Tests: allow new $ssl_verify syntax.

diff --git a/mail_imap_ssl.t b/mail_imap_ssl.t
--- a/mail_imap_ssl.t
+++ b/mail_imap_ssl.t
@@ -216,7 +216,7 @@ my $f = $t->read_file('auth.log');
 
 like($f, qr/^-:-:-:-:-:-:-\x0d?\x0a?:s1$/m, 'log - plain connection');
 like($f, qr/^on:NONE:-:-:-:-:-\x0d?\x0a?:s2$/m, 'log - no cert');
-like($f, qr!^on:FAILED:(/?CN=1.example.com):\1:\w+:\w+:[^:]+:s3$!m,
+like($f, qr!^on:FAILED(?:.*):(/?CN=1.example.com):\1:\w+:\w+:[^:]+:s3$!m,
 	'log - bad cert');
 like($f, qr!^on:SUCCESS:(/?CN=2.example.com):\1:\w+:\w+:[^:]+:s4$!m,
 	'log - good cert');