From 89d5a8e80edf5d8fc8006afff213593ddcfebbf1 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 29 Aug 2008 16:48:29 -0500 Subject: [PATCH] fix tests, docs --- basis/smtp/smtp-docs.factor | 3 ++- basis/smtp/smtp-tests.factor | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/smtp/smtp-docs.factor b/basis/smtp/smtp-docs.factor index 618cf5f836..e30b3fcc27 100644 --- 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 "" + { $unchecked-example "USING: accessors smtp ;" + "" " \"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 7cc0e7efbb..f8b321fdac 100755 --- 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