Replace test for outdated SSLv3 protocol with TLSv1

closes #987
mojolicious · Aug 12, 2016 · ed6d139 · ed6d139
1 parent 039a827
commit ed6d139
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/t/mojo/user_agent_tls.t b/t/mojo/user_agent_tls.t
@@ -86,20 +86,20 @@ $listen
   . '&ca=t/mojo/certs/ca.crt'
   . '&ciphers=AES256-SHA:ALL'
   . '&verify=0x00'
-  . '&version=SSLv3';
+  . '&version=TLSv1';
 $daemon->listen([$listen])->start;
 $port = Mojo::IOLoop->acceptor($daemon->acceptors->[0])->port;
 
 # Invalid certificate
 $ua = Mojo::UserAgent->new(ioloop => $ua->ioloop);
 $ua->cert('t/mojo/certs/bad.crt')->key('t/mojo/certs/bad.key');
-IO::Socket::SSL::set_defaults(SSL_version => 'SSLv3');
+IO::Socket::SSL::set_defaults(SSL_version => 'TLSv1');
 $tx = $ua->get("https://127.0.0.1:$port");
 ok $tx->success, 'successful';
 ok !$tx->error, 'no error';
 is $ua->ioloop->stream($tx->connection)->handle->get_cipher, 'AES256-SHA',
   'AES256-SHA has been negotiatied';
-is $ua->ioloop->stream($tx->connection)->handle->get_sslversion, 'SSLv3',
-  'SSLv3 has been negotiatied';
+is $ua->ioloop->stream($tx->connection)->handle->get_sslversion, 'TLSv1',
+  'TLSv1 has been negotiatied';
 
 done_testing();