From: Björn Lindqvist <bjourne@gmail.com>
Date: Tue, 23 Sep 2014 22:46:47 +0000 (+0200)
Subject: smtp.tests: send-mail should be called to get the mock-smtp-server to terminate
X-Git-Tag: 0.97~112
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d952ac0c079578f3cab2878daefbf30030083fdb

smtp.tests: send-mail should be called to get the mock-smtp-server to terminate
---

diff --git a/basis/smtp/smtp-tests.factor b/basis/smtp/smtp-tests.factor
index f4cb3e572a..c7127c61b9 100644
--- a/basis/smtp/smtp-tests.factor
+++ b/basis/smtp/smtp-tests.factor
@@ -1,5 +1,5 @@
-USING: smtp tools.test io.streams.string io.sockets
-io.sockets.secure threads smtp.server kernel sequences
+USING: combinators continuations smtp tools.test io.streams.string
+io.sockets io.sockets.secure threads smtp.server kernel sequences
 namespaces logging accessors assocs sorting smtp.private
 concurrency.promises system ;
 IN: smtp.tests
@@ -76,13 +76,17 @@ IN: smtp.tests
                 "Ed <dharmatech@factorcode.org>"
             } >>to
             "Doug <erg@factorcode.org>" >>from
-        [
-            email>headers sort-keys [
-                drop { "Date" "Message-Id" } member? not
-            ] assoc-filter
-        ]
-        [ to>> [ extract-email ] map ]
-        [ from>> extract-email ] tri
+        {
+            [
+                email>headers sort-keys [
+                    drop { "Date" "Message-Id" } member? not
+                ] assoc-filter
+            ]
+            [ to>> [ extract-email ] map ]
+            [ from>> extract-email ]
+            ! To get the smtp server to clean up itself
+            [ [ send-email ] ignore-errors drop ]
+        } cleave
     ] with-test-smtp-config
 ] unit-test