suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove unnecessary protocol args in tests

Browse Source
This commit is contained in:
Ryan Culpepper 2014-10-31 12:24:36 -04:00
parent 2422218dd9
commit 4d2dce8de4
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-pkgs/racket-test/tests/openssl/basic.rkt
View File

@ -42,7 +42,7 @@
(close-output-port w))))) (close-output-port w)))))
(define t2 (define t2
(thread (lambda () (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-certificate-chain! ctx pem)
(ssl-load-private-key! ctx pem) (ssl-load-private-key! ctx pem)
(let-values ([(r w) (ports->ssl-ports (let-values ([(r w) (ports->ssl-ports

4
pkgs/racket-pkgs/racket-test/tests/openssl/peer-verif.rkt
View File

@ -20,7 +20,7 @@
#:early [early-mode (and (not later-mode) 'try)] #:early [early-mode (and (not later-mode) 'try)]
#:accept-fail? [accept-fail? #f] #:accept-fail? [accept-fail? #f]
#:verify-fail? [verify-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-private-key! ssl-server-context server-key)
(ssl-load-certificate-chain! ssl-server-context server-crt) (ssl-load-certificate-chain! ssl-server-context server-crt)
@ -72,7 +72,7 @@
(close-output-port out)))))) (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) (ssl-load-private-key! ssl-client-context client-key)