steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix smtp tests

db4
Slava Pestov 2008-11-30 15:11:03 -06:00
parent 53862b9a23
commit b7d4fccf56
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/smtp/smtp-tests.factor
View File

@ -77,10 +77,10 @@ IN: smtp.tests
[ ] [ "p" get mock-smtp-server ] unit-test [ ] [ "p" get mock-smtp-server ] unit-test
[ ] [ [ ] [
[ <secure-config> f >>verify [
"localhost" "p" get ?promise <inet> smtp-server set "localhost" "p" get ?promise <inet> smtp-server set
no-auth smtp-auth set no-auth smtp-auth set
smtp-tls? on os unix? [ smtp-tls? on ] when
<email> <email>
"Hi guys\nBye guys" >>body "Hi guys\nBye guys" >>body
@ -91,5 +91,5 @@ IN: smtp.tests
} >>to } >>to
"Doug <erg@factorcode.org>" >>from "Doug <erg@factorcode.org>" >>from
send-email send-email
] with-scope ] with-secure-context
] unit-test ] unit-test