Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

switch places tests to `raco test' instead of `racket -tm' protocol

  • Loading branch information...
commit fa411b3b3c649e04b2e218f4f6b95309e331d402 1 parent 07149da
Matthew Flatt mflatt authored committed
12 collects/meta/props
@@ -1816,7 +1816,6 @@ path/s is either such a string or a list of them.
1816 1816 "collects/tests/racket/etc.rktl" drdr:command-line (racket "-f" *)
1817 1817 "collects/tests/racket/expand.rktl" drdr:command-line #f
1818 1818 "collects/tests/racket/fact.rktl" drdr:command-line (racket "-f" *)
1819   -"collects/tests/racket/ffi-orig-place.rkt" drdr:command-line (racket "-tm" *)
1820 1819 "collects/tests/racket/file.rktl" drdr:command-line #f
1821 1820 "collects/tests/racket/filelib.rktl" drdr:command-line #f drdr:timeout 360
1822 1821 "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.
1868 1867 "collects/tests/racket/place" responsible (tewk)
1869 1868 "collects/tests/racket/place-chan-rand-help.rkt" responsible (tewk)
1870 1869 "collects/tests/racket/place-chan-rand.rkt" responsible (tewk) drdr:random #t
1871   -"collects/tests/racket/place-channel-fd.rkt" responsible (tewk) drdr:command-line (racket "-tm" *)
1872   -"collects/tests/racket/place-channel-fd2.rkt" responsible (tewk) drdr:command-line (racket "-tm" *)
1873   -"collects/tests/racket/place-channel-ffi.rkt" responsible (tewk) drdr:command-line (racket "-tm" *)
1874   -"collects/tests/racket/place-channel-socket.rkt" responsible (tewk) drdr:command-line (racket "-tm" *)
1875   -"collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) drdr:timeout 300
  1870 +"collects/tests/racket/place-channel-fd.rkt" responsible (tewk)
  1871 +"collects/tests/racket/place-channel-fd2.rkt" responsible (tewk)
  1872 +"collects/tests/racket/place-channel-ffi.rkt" responsible (tewk)
  1873 +"collects/tests/racket/place-channel-socket.rkt" responsible (tewk)
  1874 +"collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:timeout 300
1876 1875 "collects/tests/racket/place.rktl" responsible (tewk) drdr:command-line (racket "-f" *)
1877 1876 "collects/tests/racket/places.rkt" responsible (tewk) drdr:command-line (racket *)
1878 1877 "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.
1885 1884 "collects/tests/racket/read.rktl" drdr:command-line #f
1886 1885 "collects/tests/racket/readtable.rktl" drdr:command-line (racket "-f" *)
1887 1886 "collects/tests/racket/restart.rktl" drdr:command-line (racket "-f" *)
1888   -"collects/tests/racket/runaway-place.rkt" drdr:command-line (racket "-tm" *)
1889 1887 "collects/tests/racket/runflats.rktl" drdr:command-line (racket "-f" *)
1890 1888 "collects/tests/racket/rx.rktl" drdr:command-line #f
1891 1889 "collects/tests/racket/sandbox.rktl" drdr:command-line (racket "-f" *)
3  collects/tests/racket/ffi-orig-place.rkt
... ... @@ -1,7 +1,8 @@
1 1 #lang racket
2 2 (require ffi/unsafe)
3 3
4   -(provide main)
  4 +(module+ test
  5 + (main))
5 6
6 7 ;; Make sure that `#:in-original-place?' doesn't lead to deadlock:
7 8
4 collects/tests/racket/place-channel-fd.rkt
@@ -9,8 +9,8 @@
9 9 rackunit
10 10 (for-syntax racket/base))
11 11
12   -(provide main)
13   -
  12 +(module+ test
  13 + (main))
14 14
15 15 (define (main)
16 16 (with-output-to-file "test2" #:exists 'replace (lambda () (write "Get it?\n")))
4 collects/tests/racket/place-channel-fd2.rkt
@@ -10,7 +10,9 @@
10 10
11 11 (apply subprocess o i e (current-executable-path) args))
12 12
13   -(provide main)
  13 +(module+ test
  14 + (main))
  15 +
14 16 (define (main)
15 17 (test-case
16 18 "test file descriptors copied across place channesl"
7 collects/tests/racket/place-channel-ffi.rkt
@@ -6,8 +6,6 @@
6 6 rackunit
7 7 (for-syntax racket/base))
8 8
9   -(provide main)
10   -
11 9 (define-runtime-path libcrypto-so
12 10 (case (system-type)
13 11 [(windows) '(so "libeay32")]
@@ -29,7 +27,10 @@
29 27
30 28
31 29 (define-cstruct _BN ([j1 _long] [top _int] [dmax _int] [neg _int] [flags _int]))
32   -(define-crypto-func BN_new (_fun -> _BN-pointer))
  30 +(define-crypto-func BN_new (_fun -> _BN-pointer))
  31 +
  32 +(module+ test
  33 + (main))
33 34
34 35 (define (main)
35 36 (define bn (BN_new))
3  collects/tests/racket/place-channel-socket.rkt
@@ -4,7 +4,8 @@
4 4 racket/tcp
5 5 rackunit)
6 6
7   -(provide main)
  7 +(module+ test
  8 + (main))
8 9
9 10 (define (main)
10 11 (test-case
4 collects/tests/racket/place-channel.rkt
@@ -8,8 +8,6 @@
8 8 rackunit
9 9 (for-syntax racket/base))
10 10
11   -(provide main)
12   -
13 11 (define-syntax-rule (define-place (name ch) body ...)
14 12 (define name (lambda () (place ch body ...))))
15 13
@@ -181,6 +179,8 @@
181 179 (raise (format "~a master length ~a != worker length ~a\n" desc ll wlen))
182 180 (place-wait p))))
183 181
  182 +(module+ test
  183 + (main))
184 184
185 185 (define (main)
186 186
3  collects/tests/racket/place-parallel.rkt
... ... @@ -1,6 +1,7 @@
1 1 #lang racket
2 2
3   -(provide main)
  3 +(module+ test
  4 + (main))
4 5
5 6 ;; Runs 3 places perfoming the test suite simultaneously. Each
6 7 ;; thread creates a directory sub<n> to run in, so that filesystem
3  collects/tests/racket/place-ports.rkt
@@ -3,7 +3,8 @@
3 3 racket/port
4 4 rackunit)
5 5
6   -(provide main)
  6 +(module+ test
  7 + (main))
7 8
8 9 (define (main)
9 10
7 collects/tests/racket/place-stdio.rkt
... ... @@ -1,7 +1,9 @@
1 1 #lang racket
2 2
3   -(unless (getenv "IN_SUBPLACE")
4   - (putenv "IN_SUBPLACE" "yes")
  3 +(module+ test
  4 + (main))
  5 +
  6 +(define (main)
5 7
6 8 ;; Place that closes stdin shouldn't close stdin in the original
7 9 ;; place:
@@ -41,4 +43,3 @@
41 43 (lambda ()
42 44 (delete-file f))))
43 45 (try-closed open-output-bytes))
44   -
3  collects/tests/racket/runaway-place.rkt
... ... @@ -1,7 +1,8 @@
1 1 #lang racket/base
2 2 (require racket/place)
3 3
4   -(provide main runaway)
  4 +(module+ test
  5 + (main))
5 6
6 7 (define (main)
7 8 (parameterize ([current-custodian (make-custodian)])

0 comments on commit fa411b3

Please sign in to comment.
Something went wrong with that request. Please try again.