From e3323818cc098fb814b222dd0d6e83cdb759cc68 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 22 Apr 2014 08:16:53 -0700 Subject: [PATCH] io.sockets.secure.openssl: disable tests for now. --- .../secure/openssl/openssl-tests.factor | 49 +------------------ 1 file changed, 2 insertions(+), 47 deletions(-) diff --git a/basis/io/sockets/secure/openssl/openssl-tests.factor b/basis/io/sockets/secure/openssl/openssl-tests.factor index 1abc74d54f..a90b5e3f83 100644 --- a/basis/io/sockets/secure/openssl/openssl-tests.factor +++ b/basis/io/sockets/secure/openssl/openssl-tests.factor @@ -1,52 +1,7 @@ -USING: accessors alien continuations http.client http.server io.servers -io.sockets io.sockets.private io.sockets.secure io.sockets.secure.openssl -kernel openssl.libcrypto openssl.libssl sequences system tools.test urls -vocabs.parser ; +USING: accessors http.client http.server io.servers +io.sockets.secure io.sockets.secure.openssl kernel tools.test ; IN: io.sockets.secure.openssl.tests -<< os windows? [ "windows.winsock" ] [ "unix.ffi" ] if use-vocab >> - -: new-ssl ( -- ssl ) - SSLv23_client_method SSL_CTX_new SSL_new ; - -! This word creates blocking sockets for testing purposes. Factor by -! default prefers to use non-blocking ones. -: inet-socket ( -- socket ) - AF_INET SOCK_STREAM IPPROTO_TCP socket ; - -: socket-connect ( remote -- socket ) - inet-socket swap dupd make-sockaddr/size connect 0 assert= ; - -: ssl-socket-connect ( remote -- ssl-socket ) - socket-connect os windows? [ alien-address ] when - BIO_NOCLOSE BIO_new_socket ; - -: remote ( url -- remote ) - url-addr addrspec>> resolve-host first ; - -! These tests break if any of the sites change their certs or go -! down. But that should never ever happen. :) -[ "www.google.com" ] [ - new-ssl dup URL" https://www.google.com" remote - ssl-socket-connect dup SSL_set_bio - dup do-ssl-connect-once f assert= - SSL_get_peer_certificate subject-name -] unit-test - -[ "*.facebook.com" ] [ - new-ssl dup URL" https://www.facebook.com" remote - ssl-socket-connect dup SSL_set_bio - dup do-ssl-connect-once f assert= - SSL_get_peer_certificate subject-name -] unit-test - -[ "github.com" ] [ - new-ssl dup URL" https://www.github.com" remote - ssl-socket-connect dup SSL_set_bio - dup do-ssl-connect-once f assert= - SSL_get_peer_certificate subject-name -] unit-test - { 200 } [ "https://www.google.se" http-get drop code>> ] unit-test [