From b7d4fccf56dec65a5172a275e42ae1c6a6409b80 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 30 Nov 2008 15:11:03 -0600
Subject: [PATCH] Fix smtp tests

---
 basis/smtp/smtp-tests.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/smtp/smtp-tests.factor b/basis/smtp/smtp-tests.factor
index 7bc7630a40..621f61670e 100644
--- 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