Moving stress tests

collects/meta/props

@@ -1466,6 +1466,7 @@ path/s is either such a string or a list of them.
 "collects/tests/mzcom" responsible (mflatt)
 "collects/tests/mzcom/test.rktl" drdr:command-line #f
 "collects/tests/net" responsible (jay eli)
+"collects/tests/net/stress" responsible (jay)
 "collects/tests/net/url-port.rkt" responsible (jay)
 "collects/tests/net/websocket" responsible (jay)
 "collects/tests/net/websocket/example.rkt" drdr:command-line #f
@@ -1789,6 +1790,7 @@ path/s is either such a string or a list of them.
 "collects/tests/racket/shared.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/racket/srfi.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/racket/stream.rktl" drdr:command-line (racket "-f" *)
+"collects/tests/racket/stress" responsible (jay)
 "collects/tests/racket/string-mzlib.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/racket/string.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/racket/struct.rktl" drdr:command-line (racket "-f" *)
@@ -1869,7 +1871,7 @@ path/s is either such a string or a list of them.
 "collects/tests/stepper/undefined.rktl" drdr:command-line #f
 "collects/tests/stepper/world-test.rktl" drdr:command-line #f
 "collects/tests/stepper/write-display.rktl" drdr:command-line #f
-"collects/tests/stress" responsible (jay)
+"collects/tests/stress.rkt" responsible (jay)
 "collects/tests/stxparse" responsible (ryanc)
 "collects/tests/stxparse/stxclass.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/tests/syntax-color" responsible (mflatt)

collects/meta/web/www/guidelines.rkt

@@ -153,7 +153,7 @@
       
       @@FAQ['how-to-stress]{How can I easily construct stess tests?}{
        @p*{
-         Refer to the @code{tests/stress/stress} library.
+         Refer to the @code{tests/stress} library.
          @~
          It contains a macro for running experiments that should behave the same but
          may have different performance. After running the experiments in isolation

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!)))

collects/tests/racket/stress/apply.rkt

@@ -0,0 +1,7 @@
+#lang racket/base
+(require tests/stress)
+
+(fit "apply to atoms"
+     23
+     (lambda (n)
+       (apply void (build-list (expt 2 n) (λ (x) x)))))

collects/tests/racket/stress/dict.rkt

@@ -1,5 +1,5 @@
 #lang racket
-(require tests/stress/stress)
+(require tests/stress)
 
 (define (make-random-hash-table n)
   (for/hasheq ([i (in-range n)])

collects/tests/racket/stress/hash.rkt

@@ -1,5 +1,5 @@
 #lang racket
-(require tests/stress/stress)
+(require tests/stress)
 
 (define (make-random-hash-table n)
   (for/hasheq ([i (in-range n)])

collects/tests/racket/stress/sequence.rkt

@@ -1,5 +1,5 @@
 #lang racket
-(require tests/stress/stress)
+(require tests/stress)
 
 ; seqn-first
 ; This ignores the greater flexiblity of seqn-first to have more than single-valued sequences

collects/tests/racket/stress/vector.rkt

@@ -1,5 +1,5 @@
 #lang racket
-(require tests/stress/stress
+(require tests/stress
          racket/unsafe/ops)
 
 ; vector-set*!

collects/tests/stress/racket/apply.rkt

@@ -1,7 +0,0 @@
-#lang racket/base
-(require tests/stress/stress)
-
-(fit "apply to atoms"
-     23
-     (lambda (n)
-       (apply void (build-list (expt 2 n) (λ (x) x)))))