From ab61ba56fcc9840571a76675f33996130b3d2298 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Mon, 22 Sep 2014 20:47:25 +0200
Subject: [PATCH] imap.tests: created connections needs to be disposed

---
 extra/imap/imap-tests.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/imap/imap-tests.factor b/extra/imap/imap-tests.factor
index 1bb9a189bb..15c5271dcd 100644
--- a/extra/imap/imap-tests.factor
+++ b/extra/imap/imap-tests.factor
@@ -1,5 +1,5 @@
 USING: accessors arrays assocs calendar calendar.format
-combinators continuations formatting fry grouping.extras imap
+combinators continuations destructors formatting fry grouping.extras imap
 io.streams.duplex kernel math math.parser math.ranges
 math.statistics namespaces random sequences sets sorting
 splitting strings system tools.test ;
@@ -35,7 +35,7 @@ ERROR: no-imap-test-host ;
     '[ \ imap-settings get-global _ with-imap-settings ] unit-test ; inline
 
 [ t ] [
-    get-test-host <imap4ssl> duplex-stream?
+    get-test-host <imap4ssl> [ duplex-stream? ] with-disposal
 ] unit-test
 
 [ t ] [