 { } [
     [
         [
-            "127.0.0.1" "port" get ?promise
+            "127.0.0.1" "port" get ?promise-test
             <inet4> ascii <client> drop &dispose 1 minutes sleep
         ] with-destructors
     ] "Silly client" spawn drop

                ] curry with-stream
            ] with-disposal
        ] with-test-context
    ] "SSL server test" spawn drop ;

: client-test ( -- string )
    <secure-config> [
        "127.0.0.1" "port" get ?promise <inet4> f <secure> ascii <client> drop stream-contents
    ] with-secure-context ;

{ } [ [ class-of name>> write ] server-test ] unit-test

{ "secure" } [ client-test ] unit-test

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