From 7fbbc1b527b9134cae63db8530b5d2f6bb17edb0 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 30 Aug 2010 06:38:48 -0600 Subject: [PATCH] Moving stress tests original commit: f899e03b59b6bb5c65369d2670ee8c116abc7c03 --- collects/tests/{stress/net => net/stress}/websocket.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) rename collects/tests/{stress/net => net/stress}/websocket.rkt (91%) diff --git a/collects/tests/stress/net/websocket.rkt b/collects/tests/net/stress/websocket.rkt similarity index 91% rename from collects/tests/stress/net/websocket.rkt rename to collects/tests/net/stress/websocket.rkt index da05936bd1..76a851064f 100644 --- a/collects/tests/stress/net/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!)))