diff --git a/basis/smtp/smtp-tests.factor b/basis/smtp/smtp-tests.factor index 7bc7630a40..621f61670e 100644 --- a/basis/smtp/smtp-tests.factor +++ b/basis/smtp/smtp-tests.factor @@ -77,10 +77,10 @@ IN: smtp.tests [ ] [ "p" get mock-smtp-server ] unit-test [ ] [ - [ + f >>verify [ "localhost" "p" get ?promise smtp-server set no-auth smtp-auth set - smtp-tls? on + os unix? [ smtp-tls? on ] when "Hi guys\nBye guys" >>body @@ -91,5 +91,5 @@ IN: smtp.tests } >>to "Doug " >>from send-email - ] with-scope + ] with-secure-context ] unit-test