Don't use SSLv3 for tests

Should fix #14.
sergot · Nov 16, 2015 · 4a5a262 · 4a5a262
1 parent 3974a28
commit 4a5a262
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/t/01-basic.t b/t/01-basic.t
@@ -3,13 +3,13 @@ use Test;
 
 plan 9;
 
-my $ssl = OpenSSL.new(:version(3), :client);
+my $ssl = OpenSSL.new(:version(1), :client);
 
 isa-ok $ssl, OpenSSL, 'new 1/3';
-is $ssl.ctx.method.version, 768, 'new 2/3';
+is $ssl.ctx.method.version, 769, 'new 2/3';
 
 $ssl = OpenSSL.new(:client);
-is $ssl.ctx.method.version, 769, 'new 3/3';
+is $ssl.ctx.method.version, 771, 'new 3/3';
 
 # wrong fd here
 ok $ssl.set-fd(111), 'set-fd';

diff --git a/t/02-socket.t b/t/02-socket.t
@@ -21,7 +21,7 @@ sub check($result) {
 }
 
 sub fetch($host, $url) {
-    my $ssl = OpenSSL.new(:version(3), :client);
+    my $ssl = OpenSSL.new(:client);
     my $s = IO::Socket::INET.new(:$host, :port(443));
     is $ssl.set-socket($s), 0, 'set-socket success';
     $ssl.set-connect-state;