switch places tests to raco test' instead of
racket -tm' protocol
This commit is contained in:
parent
63a4414863
commit
d67997293d
|
@ -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" *)
|
||||
|
|
|
@ -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:
|
||||
|
||||
|
|
|
@ -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")))
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -4,7 +4,8 @@
|
|||
racket/tcp
|
||||
rackunit)
|
||||
|
||||
(provide main)
|
||||
(module+ test
|
||||
(main))
|
||||
|
||||
(define (main)
|
||||
(test-case
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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<n> to run in, so that filesystem
|
||||
|
|
|
@ -3,7 +3,8 @@
|
|||
racket/port
|
||||
rackunit)
|
||||
|
||||
(provide main)
|
||||
(module+ test
|
||||
(main))
|
||||
|
||||
(define (main)
|
||||
|
||||
|
|
|
@ -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))
|
||||
|
||||
|
|
|
@ -1,7 +1,8 @@
|
|||
#lang racket/base
|
||||
(require racket/place)
|
||||
|
||||
(provide main runaway)
|
||||
(module+ test
|
||||
(main))
|
||||
|
||||
(define (main)
|
||||
(parameterize ([current-custodian (make-custodian)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user