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