tcp-echo-benchmark ( #times #bytes -- )

Vocabulary

benchmark.tcp-echo0

Inputs

#times	an object
#bytes	an object

Outputs

None

Definition

USING: io io.encodings.binary io.servers io.sockets kernel math
namespaces sequences ;

IN: benchmark.tcp-echo0

:: tcp-echo-benchmark ( #times #bytes -- )
    #times #bytes [ tcp-echo-banner ] 2keep <tcp-echo> [
        \ threaded-server get server>address binary [
            #times [ #bytes read-write ] times
            read-contents empty? [ incorrect-#bytes ] unless
        ] with-client
    ] with-threaded-server ;