imap.tests: created connections needs to be disposed

diff --git a/extra/imap/imap-tests.factor b/extra/imap/imap-tests.factor
index 1bb9a189bb8e7ca4fc788cf4d9154cbaef5f566c..15c5271dcd55a9267c390f6e5aa795dcfb7c54d3 100644 (file)
--- 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 ] [