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

This commit is contained in:
Matthew Flatt 2012-03-29 14:49:18 -06:00
parent 63a4414863
commit d67997293d
11 changed files with 30 additions and 23 deletions

View File

@ -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" *)

View File

@ -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:

View File

@ -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")))

View File

@ -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"

View File

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

View File

@ -4,7 +4,8 @@
racket/tcp
rackunit)
(provide main)
(module+ test
(main))
(define (main)
(test-case

View File

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

View File

@ -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

View File

@ -3,7 +3,8 @@
racket/port
rackunit)
(provide main)
(module+ test
(main))
(define (main)

View File

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

View File

@ -1,7 +1,8 @@
#lang racket/base
(require racket/place)
(provide main runaway)
(module+ test
(main))
(define (main)
(parameterize ([current-custodian (make-custodian)])