openssl.libcrypto.tests: should not forget to free the BIO

diff --git a/basis/openssl/libcrypto/libcrypto-tests.factor b/basis/openssl/libcrypto/libcrypto-tests.factor
index 6f3c265669eead96c72073b01d4b5b699d823656..dfc1ec5b3dc90c05ca593b1ce52ecfe789c9f3eb 100644 (file)
--- a/basis/openssl/libcrypto/libcrypto-tests.factor
+++ b/basis/openssl/libcrypto/libcrypto-tests.factor
@@ -8,7 +8,11 @@ USING:
     tools.test ;
 IN: openssl.libcrypto.tests
 
-{ t } [ "factorcode.org:80" BIO_new_connect bio_st? ] unit-test
+{ t 1 } [
+    "factorcode.org:80" BIO_new_connect [
+        bio_st?
+    ] keep BIO_free
+] unit-test
 
 { 1 1 } [
     "factorcode.org:80" BIO_new_connect [