Fix smtp tests

diff --git a/basis/smtp/smtp-tests.factor b/basis/smtp/smtp-tests.factor
index 7bc7630a4028ef9786f32456c2c1ce6d631be43b..621f61670eb27eedfcaf2a91e346677654e9f205 100644 (file)
--- a/basis/smtp/smtp-tests.factor
+++ b/basis/smtp/smtp-tests.factor
@@ -77,10 +77,10 @@ IN: smtp.tests
 [ ] [ "p" get mock-smtp-server ] unit-test
 
 [ ] [
-    [
+    <secure-config> f >>verify [
         "localhost" "p" get ?promise <inet> smtp-server set
         no-auth smtp-auth set
-        smtp-tls? on
+        os unix? [ smtp-tls? on ] when
 
         <email>
             "Hi guys\nBye guys" >>body
@@ -91,5 +91,5 @@ IN: smtp.tests
             } >>to
             "Doug <erg@factorcode.org>" >>from
         send-email
-    ] with-scope
+    ] with-secure-context
 ] unit-test