suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make all of the planet tests run sequentially (as they manipulate global

Browse Source 
planet state that causes them to fail when run in parallel)
This commit is contained in:
Robby Findler 2011-08-27 10:53:25 -05:00
parent 25eb851217
commit 72e5e1248f
2 changed files with 43 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/meta/props
View File

@ -1557,10 +1557,15 @@ path/s is either such a string or a list of them.
"collects/tests/plai/test-random-mutator.rkt" responsible (jay robby)
"collects/tests/plai/web.rkt" drdr:command-line (mzc "-k" *)
"collects/tests/planet" responsible (robby jay)
"collects/tests/planet/cmdline-tool.rkt" drdr:command-line #f
"collects/tests/planet/cmdline-tool.rkt" drdr:command-line (raco "make" *)
"collects/tests/planet/docs-build.rkt" drdr:command-line (raco "make" *)
"collects/tests/planet/examples/dummy-module.rkt" drdr:command-line #f
"collects/tests/planet/examples/scribblings-package" drdr:command-line #f
"collects/tests/planet/thread-safe-resolver.rkt" drdr:timeout 1000
"collects/tests/planet/lang.rkt" drdr:command-line (raco "make" *)
"collects/tests/planet/run-all.rkt" drdr:command-line (racket *)
"collects/tests/planet/test-docs-complete.rkt" drdr:command-line (raco "make" *)
"collects/tests/planet/thread-safe-resolver.rkt" drdr:command-line (raco "make" *) drdr:timeout 1000
"collects/tests/planet/version.rkt" drdr:command-line (raco "make" *)
"collects/tests/plot/run-tests.rkt" drdr:command-line (gracket-text "-t" *)
"collects/tests/r6rs" responsible (mflatt)
"collects/tests/racket" responsible (mflatt)
@ -1831,8 +1836,8 @@ path/s is either such a string or a list of them.
"collects/tests/racket/pconvert.rktl" drdr:command-line #f
"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.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) drdr:timeout 300
"collects/tests/racket/place-channel-ffi.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.rktl" responsible (tewk) drdr:command-line (racket "-f" *)
"collects/tests/racket/port.rktl" drdr:command-line #f
"collects/tests/racket/portlib.rktl" drdr:command-line #f

35
collects/tests/planet/run-all.rkt Normal file
View File

@ -0,0 +1,35 @@
#lang racket
#|
Run all of the PLaneT tests sequentially since they
manipulate the planet state in ways that doesn't work
in parallel
|#
(require racket/runtime-path)
(define-runtime-path me "run-all.rkt")
(define ran-tests '())
(dynamic-wind
void
(λ ()
(for ([test (in-list (sort (directory-list (path-only me))
string<=?
#:key (λ (x) (format "~s" x))))])
(when (file-exists? (build-path (path-only me) test))
(when (regexp-match #rx"rkt$" (path->string test))
(unless (equal? (file-name-from-path me)
test)
(flush-output)
(printf "============================================================\nrunning ~a\n"
test)
(dynamic-require (build-path (path-only me) test) #f)
(printf "finished ~a\n\n"
test)
(set! ran-tests (cons test ran-tests)))))))
(λ ()
(printf "\nran: ~a\n" ran-tests)))