From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 8 Oct 2014 18:33:40 +0000 (-0700)
Subject: smtp: Make the test pass on Windows.
X-Git-Tag: 0.97~100
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d4234ab1af2cd783fe915f16ae8cf769d67f7382

smtp: Make the test pass on Windows.
---

diff --git a/basis/smtp/smtp-tests.factor b/basis/smtp/smtp-tests.factor
index c7127c61b9..8e9c5d0e26 100644
--- a/basis/smtp/smtp-tests.factor
+++ b/basis/smtp/smtp-tests.factor
@@ -1,7 +1,7 @@
-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 ;
+USING: accessors assocs combinators concurrency.promises
+continuations fry io.sockets io.sockets.secure io.streams.string
+kernel namespaces sequences smtp smtp.private smtp.server
+sorting system tools.test ;
 IN: smtp.tests
 
 : with-test-smtp-config ( quot -- )
@@ -85,7 +85,7 @@ IN: smtp.tests
             [ to>> [ extract-email ] map ]
             [ from>> extract-email ]
             ! To get the smtp server to clean up itself
-            [ [ send-email ] ignore-errors drop ]
+            [ '[ _ send-email ] ignore-errors ]
         } cleave
     ] with-test-smtp-config
 ] unit-test