enable some tests

Some tests that rely on a `main` submodule for places
need a `test` submodule, too.
This commit is contained in:
Matthew Flatt 2015-09-08 06:40:30 -06:00
parent 8394936ee0
commit 98b819edd4
5 changed files with 14 additions and 2 deletions

View File

@ -22,5 +22,5 @@
(unless (andmap zero? r)
(error "some place failed")))
(module+ test
(require (submod ".." main)))

View File

@ -15,3 +15,6 @@
(define p (go))
(printf "waiting\n")
(place-wait p))
(module+ test
(require (submod ".." main)))

View File

@ -24,3 +24,6 @@
(define p (go))
(place-channel-get p)
(place-kill p)))
(module+ test
(require (submod ".." main)))

View File

@ -18,3 +18,6 @@
(void (place-wait (go)))
(collect-garbage)
(void (place-wait (go))))
(module+ test
(require (submod ".." main)))

View File

@ -24,3 +24,6 @@
(unless (equal? 65 (place-channel-get p))
(error "crash"))
'ok)
(module+ test
(require (submod ".." main)))