added test for verification bug

mojolicious · May 18, 2014 · 701d26e · 701d26e
1 parent 9a9947f
commit 701d26e
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -17,6 +17,7 @@
   - Improved Mojo::Parameters to consistently accept arrays.
   - Fixed Mojo::IOLoop::Server to work correctly with newer versions of
     IO::Socket::SSL. (noxxi)
+  - Fixed verification bug in Mojo::IOLoop::Server.
   - Fixed path generation bug in Mojolicious::Routes::Match.
   - Fixed warnings in Mojo::IOLoop::Delay.
 

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -931,6 +931,8 @@ Rafal Pocztarski
 
 Randal Schwartz
 
+Rick Delaney
+
 Robert Hicks
 
 Robin Lee

diff --git a/t/mojo/ioloop_tls.t b/t/mojo/ioloop_tls.t
@@ -340,4 +340,28 @@ is $client, 'connected', 'right result';
 ok !$client_err, 'no error';
 is $cipher, 'RC4-SHA', 'RC4-SHA has been negotiatied';
 
+# Ignore missing client certificate
+($server, $client, $client_err) = ();
+$id = Mojo::IOLoop->server(
+  address    => '127.0.0.1',
+  tls        => 1,
+  tls_ca     => 't/mojo/certs/ca.crt',
+  tls_cert   => 't/mojo/certs/server.crt',
+  tls_key    => 't/mojo/certs/server.key',
+  tls_verify => 0x01,
+  sub { $server = 'accepted' }
+);
+$port = Mojo::IOLoop->acceptor($id)->handle->sockport;
+Mojo::IOLoop->client(
+  {port => $port, tls => 1} => sub {
+    shift->stop;
+    $client     = 'connected';
+    $client_err = shift;
+  }
+);
+Mojo::IOLoop->start;
+is $server, 'accepted',  'right result';
+is $client, 'connected', 'right result';
+ok !$client_err, 'no error';
+
 done_testing();