fix tests, docs

diff --git a/basis/smtp/smtp-docs.factor b/basis/smtp/smtp-docs.factor
index 618cf5f836547a614a3da0c839305e0aa126b625..e30b3fcc2706a7241264954fc3f433fc0e14ad54 100644 (file)
--- a/basis/smtp/smtp-docs.factor
+++ b/basis/smtp/smtp-docs.factor
@@ -23,7 +23,8 @@ HELP: send-email
 { $description "Sends an " { $link email } " object to an STMP server stored in the " { $link smtp-server } " variable.  The required slots are " { $snippet "from" } " and " { $snippet "to" } "." }
 
 { $examples
-    { $example "<email>"
+    { $unchecked-example "USING: accessors smtp ;"
+    "<email>"
     "    \"groucho@marx.bros\" >>from"
     "    { \"chico@marx.bros\" \"harpo@marx.bros\" } >>to"
     "    { \"gummo@marx.bros\" } >>cc"

diff --git a/basis/smtp/smtp-tests.factor b/basis/smtp/smtp-tests.factor
index 7cc0e7efbb5a890c4e8af6eb55b297f8952f3e4d..f8b321fdac465218ad4ae1d4f3d585fbfe83c984 100755 (executable)
--- a/basis/smtp/smtp-tests.factor
+++ b/basis/smtp/smtp-tests.factor
@@ -1,6 +1,6 @@
 USING: smtp tools.test io.streams.string io.sockets threads
 smtp.server kernel sequences namespaces logging accessors
-assocs sorting ;
+assocs sorting smtp.private ;
 IN: smtp.tests
 
 { 0 0 } [ [ ] with-smtp-connection ] must-infer-as