From 71d2a373fe424b108ab5303988b23ac0d4612776 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Wed, 24 Jan 2018 20:20:38 +0100
Subject: [PATCH] openssl.libcrypto.tests: should not forget to free the BIO

---
 basis/openssl/libcrypto/libcrypto-tests.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/basis/openssl/libcrypto/libcrypto-tests.factor b/basis/openssl/libcrypto/libcrypto-tests.factor
index 6f3c265669..dfc1ec5b3d 100644
--- 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 [