mock-pop3-server ( promise -- )

Vocabulary

pop3.server

Inputs

promise

an object

Outputs

None

Definition

USING: accessors calendar concurrency.promises destructors io
io.encodings.utf8 io.sockets io.sockets.secure.debug
io.streams.duplex io.timeouts kernel namespaces threads ;

IN: pop3.server

:: mock-pop3-server ( promise -- )
    [
        [
            "127.0.0.1" 0 <inet4> utf8 <server> [
                dup addr>> port>> promise fulfill accept drop [
                    1 minutes timeouts
                    "+OK POP3 server ready\r\n" write
                    flush process [ flush ] with-global
                ] with-stream
            ] with-disposal
        ] with-test-context
    ] in-thread ;