Moving stress tests

original commit: f899e03b59
2010-08-30 06:38:48 -06:00 · 2010-08-30 06:38:48 -06:00 · 7fbbc1b527
commit 7fbbc1b527
parent 21c34d29d4
1 changed files with 4 additions and 2 deletions
--- a/collects/tests/net/stress/websocket.rkt
+++ b/collects/tests/net/stress/websocket.rkt
@ -1,5 +1,5 @@
 #lang racket/base
-(require tests/stress/stress
+(require tests/stress
         net/websocket
         net/url
         racket/async-channel)
@ -29,4 +29,6 @@
                      (define conn (ws-connect (string->url (format "ws://localhost:~a" port))))
                      (for ([r (in-range REQS)])
                        (ws-send! conn "ping")
-                        (ws-recv conn))))))))
+                        (ws-recv conn))))))
+       
+       (shutdown!)))