diff --git a/collects/meta/props b/collects/meta/props index 0910d3c43e..d4afc92c34 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -1816,7 +1816,6 @@ path/s is either such a string or a list of them. "collects/tests/racket/etc.rktl" drdr:command-line (racket "-f" *) "collects/tests/racket/expand.rktl" drdr:command-line #f "collects/tests/racket/fact.rktl" drdr:command-line (racket "-f" *) -"collects/tests/racket/ffi-orig-place.rkt" drdr:command-line (racket "-tm" *) "collects/tests/racket/file.rktl" drdr:command-line #f "collects/tests/racket/filelib.rktl" drdr:command-line #f drdr:timeout 360 "collects/tests/racket/fixnum.rktl" drdr:command-line (racket "-f" *) drdr:timeout 360 @@ -1868,11 +1867,11 @@ path/s is either such a string or a list of them. "collects/tests/racket/place" responsible (tewk) "collects/tests/racket/place-chan-rand-help.rkt" responsible (tewk) "collects/tests/racket/place-chan-rand.rkt" responsible (tewk) drdr:random #t -"collects/tests/racket/place-channel-fd.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) -"collects/tests/racket/place-channel-fd2.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) -"collects/tests/racket/place-channel-ffi.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) -"collects/tests/racket/place-channel-socket.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) -"collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) drdr:timeout 300 +"collects/tests/racket/place-channel-fd.rkt" responsible (tewk) +"collects/tests/racket/place-channel-fd2.rkt" responsible (tewk) +"collects/tests/racket/place-channel-ffi.rkt" responsible (tewk) +"collects/tests/racket/place-channel-socket.rkt" responsible (tewk) +"collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:timeout 300 "collects/tests/racket/place.rktl" responsible (tewk) drdr:command-line (racket "-f" *) "collects/tests/racket/places.rkt" responsible (tewk) drdr:command-line (racket *) "collects/tests/racket/port.rktl" drdr:command-line #f @@ -1885,7 +1884,6 @@ path/s is either such a string or a list of them. "collects/tests/racket/read.rktl" drdr:command-line #f "collects/tests/racket/readtable.rktl" drdr:command-line (racket "-f" *) "collects/tests/racket/restart.rktl" drdr:command-line (racket "-f" *) -"collects/tests/racket/runaway-place.rkt" drdr:command-line (racket "-tm" *) "collects/tests/racket/runflats.rktl" drdr:command-line (racket "-f" *) "collects/tests/racket/rx.rktl" drdr:command-line #f "collects/tests/racket/sandbox.rktl" drdr:command-line (racket "-f" *) diff --git a/collects/tests/racket/ffi-orig-place.rkt b/collects/tests/racket/ffi-orig-place.rkt index 20a098f88a..d6c845a4ee 100644 --- a/collects/tests/racket/ffi-orig-place.rkt +++ b/collects/tests/racket/ffi-orig-place.rkt @@ -1,7 +1,8 @@ #lang racket (require ffi/unsafe) -(provide main) +(module+ test + (main)) ;; Make sure that `#:in-original-place?' doesn't lead to deadlock: diff --git a/collects/tests/racket/place-channel-fd.rkt b/collects/tests/racket/place-channel-fd.rkt index 5e871a01ed..3ca9bbd9ea 100644 --- a/collects/tests/racket/place-channel-fd.rkt +++ b/collects/tests/racket/place-channel-fd.rkt @@ -9,8 +9,8 @@ rackunit (for-syntax racket/base)) -(provide main) - +(module+ test + (main)) (define (main) (with-output-to-file "test2" #:exists 'replace (lambda () (write "Get it?\n"))) diff --git a/collects/tests/racket/place-channel-fd2.rkt b/collects/tests/racket/place-channel-fd2.rkt index aadd042ee1..6f8f3548b5 100644 --- a/collects/tests/racket/place-channel-fd2.rkt +++ b/collects/tests/racket/place-channel-fd2.rkt @@ -10,7 +10,9 @@ (apply subprocess o i e (current-executable-path) args)) -(provide main) +(module+ test + (main)) + (define (main) (test-case "test file descriptors copied across place channesl" diff --git a/collects/tests/racket/place-channel-ffi.rkt b/collects/tests/racket/place-channel-ffi.rkt index 1eda9f99ca..6bff4f31b7 100644 --- a/collects/tests/racket/place-channel-ffi.rkt +++ b/collects/tests/racket/place-channel-ffi.rkt @@ -6,8 +6,6 @@ rackunit (for-syntax racket/base)) -(provide main) - (define-runtime-path libcrypto-so (case (system-type) [(windows) '(so "libeay32")] @@ -29,7 +27,10 @@ (define-cstruct _BN ([j1 _long] [top _int] [dmax _int] [neg _int] [flags _int])) -(define-crypto-func BN_new (_fun -> _BN-pointer)) +(define-crypto-func BN_new (_fun -> _BN-pointer)) + +(module+ test + (main)) (define (main) (define bn (BN_new)) diff --git a/collects/tests/racket/place-channel-socket.rkt b/collects/tests/racket/place-channel-socket.rkt index e1da280b7b..1056c65cd9 100644 --- a/collects/tests/racket/place-channel-socket.rkt +++ b/collects/tests/racket/place-channel-socket.rkt @@ -4,7 +4,8 @@ racket/tcp rackunit) -(provide main) +(module+ test + (main)) (define (main) (test-case diff --git a/collects/tests/racket/place-channel.rkt b/collects/tests/racket/place-channel.rkt index ac9c7b182d..a83e056419 100644 --- a/collects/tests/racket/place-channel.rkt +++ b/collects/tests/racket/place-channel.rkt @@ -8,8 +8,6 @@ rackunit (for-syntax racket/base)) -(provide main) - (define-syntax-rule (define-place (name ch) body ...) (define name (lambda () (place ch body ...)))) @@ -181,6 +179,8 @@ (raise (format "~a master length ~a != worker length ~a\n" desc ll wlen)) (place-wait p)))) +(module+ test + (main)) (define (main) diff --git a/collects/tests/racket/place-parallel.rkt b/collects/tests/racket/place-parallel.rkt index 142dce44fe..d5ec71b52b 100644 --- a/collects/tests/racket/place-parallel.rkt +++ b/collects/tests/racket/place-parallel.rkt @@ -1,6 +1,7 @@ #lang racket -(provide main) +(module+ test + (main)) ;; Runs 3 places perfoming the test suite simultaneously. Each ;; thread creates a directory sub to run in, so that filesystem diff --git a/collects/tests/racket/place-ports.rkt b/collects/tests/racket/place-ports.rkt index 7c70695df0..d33175dd1b 100644 --- a/collects/tests/racket/place-ports.rkt +++ b/collects/tests/racket/place-ports.rkt @@ -3,7 +3,8 @@ racket/port rackunit) -(provide main) +(module+ test + (main)) (define (main) diff --git a/collects/tests/racket/place-stdio.rkt b/collects/tests/racket/place-stdio.rkt index 5bd309d98f..2b229a4239 100644 --- a/collects/tests/racket/place-stdio.rkt +++ b/collects/tests/racket/place-stdio.rkt @@ -1,7 +1,9 @@ #lang racket -(unless (getenv "IN_SUBPLACE") - (putenv "IN_SUBPLACE" "yes") +(module+ test + (main)) + +(define (main) ;; Place that closes stdin shouldn't close stdin in the original ;; place: @@ -41,4 +43,3 @@ (lambda () (delete-file f)))) (try-closed open-output-bytes)) - diff --git a/collects/tests/racket/runaway-place.rkt b/collects/tests/racket/runaway-place.rkt index f16584b69c..14697d00a9 100644 --- a/collects/tests/racket/runaway-place.rkt +++ b/collects/tests/racket/runaway-place.rkt @@ -1,7 +1,8 @@ #lang racket/base (require racket/place) -(provide main runaway) +(module+ test + (main)) (define (main) (parameterize ([current-custodian (make-custodian)])