From 412caee9e9c21e7c624128e8cd42b3c1b254d4d0 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 9 May 2008 17:11:20 -0500
Subject: [PATCH] Tweak SMTP test for threading changes

---
 extra/smtp/smtp-tests.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/extra/smtp/smtp-tests.factor b/extra/smtp/smtp-tests.factor
index 162512f9f3..5d350d80c4 100755
--- a/extra/smtp/smtp-tests.factor
+++ b/extra/smtp/smtp-tests.factor
@@ -68,7 +68,9 @@ IN: smtp.tests
     rot from>>
 ] unit-test
 
-[ ] [ [ 4321 mock-smtp-server ] in-thread ] unit-test
+[ ] [ [ 4321 mock-smtp-server ] "SMTP server" spawn drop ] unit-test
+
+[ ] [ yield ] unit-test
 
 [ ] [
     [
@@ -85,3 +87,5 @@ IN: smtp.tests
         send-email
     ] with-scope
 ] unit-test
+
+[ ] [ yield ] unit-test