From 4d2dce8de4f20b790a2e430e97c367d9da5db864 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 31 Oct 2014 12:24:36 -0400 Subject: [PATCH] remove unnecessary protocol args in tests --- pkgs/racket-pkgs/racket-test/tests/openssl/basic.rkt | 2 +- pkgs/racket-pkgs/racket-test/tests/openssl/peer-verif.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/openssl/basic.rkt b/pkgs/racket-pkgs/racket-test/tests/openssl/basic.rkt index 5eca2495ac..cce3880718 100644 --- a/pkgs/racket-pkgs/racket-test/tests/openssl/basic.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/openssl/basic.rkt @@ -42,7 +42,7 @@ (close-output-port w))))) (define t2 (thread (lambda () - (define ctx (ssl-make-server-context 'sslv2-or-v3)) + (define ctx (ssl-make-server-context)) (ssl-load-certificate-chain! ctx pem) (ssl-load-private-key! ctx pem) (let-values ([(r w) (ports->ssl-ports diff --git a/pkgs/racket-pkgs/racket-test/tests/openssl/peer-verif.rkt b/pkgs/racket-pkgs/racket-test/tests/openssl/peer-verif.rkt index 30e219cc2f..e5e7e94af0 100644 --- a/pkgs/racket-pkgs/racket-test/tests/openssl/peer-verif.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/openssl/peer-verif.rkt @@ -20,7 +20,7 @@ #:early [early-mode (and (not later-mode) 'try)] #:accept-fail? [accept-fail? #f] #:verify-fail? [verify-fail? #f]) - (define ssl-server-context (ssl-make-server-context 'sslv3)) + (define ssl-server-context (ssl-make-server-context)) (ssl-load-private-key! ssl-server-context server-key) (ssl-load-certificate-chain! ssl-server-context server-crt) @@ -72,7 +72,7 @@ (close-output-port out)))))) - (define ssl-client-context (ssl-make-client-context 'sslv3)) + (define ssl-client-context (ssl-make-client-context)) (ssl-load-private-key! ssl-client-context client-key)