         [
             [
                 [
-                    "127.0.0.1" "port" get ?promise
+                    "127.0.0.1" "port" get ?promise-test
                     <inet4> f <secure> ascii <client> drop &dispose 1 minutes sleep
                 ] with-test-context
             ] with-destructors


[
    <secure-config> [
        "localhost" "port" get ?promise <inet> f <secure> ascii
        <client> drop dispose
    ] with-secure-context
] [ certificate-verify-error? ] must-fail-with

USING: accessors calendar classes
concurrency.promises destructors io io.backend.unix
io.encodings.ascii io.sockets io.sockets.secure
io.sockets.secure.debug io.streams.duplex io.timeouts kernel
locals namespaces threads tools.test ;
IN: io.sockets.secure.tests
QUALIFIED-WITH: concurrency.messaging qm

{ 1 0 } [ [ ] with-secure-context ] must-infer-as

{ } [ <promise> "port" set ] unit-test

:: server-test ( quot -- obj/f )
    [
        [
            "127.0.0.1" 0 <inet4> f <secure> ascii <server> [
