From 4a5a262812381dfaf5f921a7a56274c4899bc2e0 Mon Sep 17 00:00:00 2001
From: Andrew Egeler <andrew@egeler.us>
Date: Sun, 15 Nov 2015 22:02:12 -0500
Subject: [PATCH] Don't use SSLv3 for tests

Should fix #14.
---
 t/01-basic.t  | 6 +++---
 t/02-socket.t | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/t/01-basic.t b/t/01-basic.t
index e60f23d..dbe3173 100644
--- 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
index 81261c3..9bb87e1 100644
--- 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;