enable some tests
Some tests that rely on a `main` submodule for places need a `test` submodule, too.
This commit is contained in:
parent
8394936ee0
commit
98b819edd4
|
@ -22,5 +22,5 @@
|
|||
(unless (andmap zero? r)
|
||||
(error "some place failed")))
|
||||
|
||||
|
||||
|
||||
(module+ test
|
||||
(require (submod ".." main)))
|
||||
|
|
|
@ -15,3 +15,6 @@
|
|||
(define p (go))
|
||||
(printf "waiting\n")
|
||||
(place-wait p))
|
||||
|
||||
(module+ test
|
||||
(require (submod ".." main)))
|
||||
|
|
|
@ -24,3 +24,6 @@
|
|||
(define p (go))
|
||||
(place-channel-get p)
|
||||
(place-kill p)))
|
||||
|
||||
(module+ test
|
||||
(require (submod ".." main)))
|
||||
|
|
|
@ -18,3 +18,6 @@
|
|||
(void (place-wait (go)))
|
||||
(collect-garbage)
|
||||
(void (place-wait (go))))
|
||||
|
||||
(module+ test
|
||||
(require (submod ".." main)))
|
||||
|
|
|
@ -24,3 +24,6 @@
|
|||
(unless (equal? 65 (place-channel-get p))
|
||||
(error "crash"))
|
||||
'ok)
|
||||
|
||||
(module+ test
|
||||
(require (submod ".." main)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user