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

smtp: Make the test pass on Windows.

db4
Doug Coleman 2014-10-08 11:33:40 -07:00
parent f8e858652d
commit d4234ab1af
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
USING: combinators continuations smtp tools.test io.streams.string
io.sockets io.sockets.secure threads smtp.server kernel sequences
namespaces logging accessors assocs sorting smtp.private
concurrency.promises system ;
USING: accessors assocs combinators concurrency.promises
continuations fry io.sockets io.sockets.secure io.streams.string
kernel namespaces sequences smtp smtp.private smtp.server
sorting system tools.test ;
IN: smtp.tests
: with-test-smtp-config ( quot -- )
@ -85,7 +85,7 @@ IN: smtp.tests
[ to>> [ extract-email ] map ]
[ from>> extract-email ]
! To get the smtp server to clean up itself
[ [ send-email ] ignore-errors drop ]
[ '[ _ send-email ] ignore-errors ]
} cleave
] with-test-smtp-config
] unit-test