openssl.libssl: get the right function for tests too

diff --git a/basis/openssl/libssl/libssl-tests.factor b/basis/openssl/libssl/libssl-tests.factor
index de4c4d461049b84ba97e7a1e12942b778f30e7bd..03ba8cfe67052c08ac2cda5c98971e84c2dfe1fc 100644 (file)
--- a/basis/openssl/libssl/libssl-tests.factor
+++ b/basis/openssl/libssl/libssl-tests.factor
@@ -59,7 +59,7 @@ maybe-init-ssl
         new-tls1-ctx new-ssl {
             SSL_rstate_string_long
             SSL_want
-            SSL_get_peer_certificate
+            get-peer-certificate-function
         } [ execute( x -- x ) ] with map
     ] with-destructors
 ] unit-test