suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Moving stress tests

Browse Source 
original commit: f899e03b59
This commit is contained in:
Jay McCarthy 2010-08-30 06:38:48 -06:00
parent 21c34d29d4
commit 7fbbc1b527
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/stress/net/websocket.rkt → collects/tests/net/stress/websocket.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require tests/stress/stress (require tests/stress
net/websocket net/websocket
net/url net/url
racket/async-channel) racket/async-channel)
@ -29,4 +29,6 @@
(define conn (ws-connect (string->url (format "ws://localhost:~a" port)))) (define conn (ws-connect (string->url (format "ws://localhost:~a" port))))
(for ([r (in-range REQS)]) (for ([r (in-range REQS)])
(ws-send! conn "ping") (ws-send! conn "ping")
(ws-recv conn)))))))) (ws-recv conn))))))
(shutdown!)))