diff --git a/compiler-test/tests/compiler/embed/embed-me28.rkt b/compiler-test/tests/compiler/embed/embed-me28.rkt new file mode 100644 index 0000000000..426a4aa503 --- /dev/null +++ b/compiler-test/tests/compiler/embed/embed-me28.rkt @@ -0,0 +1,14 @@ +#lang racket/base +(require racket/place) + +(define (go) + (place pch + (place-channel-put pch 28))) + +(module+ main + (define p (go)) + (define n (place-channel-get p)) + (void (place-wait p)) + (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout") + (lambda () (printf "~a\n" n)) + #:exists 'append)) diff --git a/compiler-test/tests/compiler/embed/test.rkt b/compiler-test/tests/compiler/embed/test.rkt index 1bbcacd1f9..ee4d4362e6 100644 --- a/compiler-test/tests/compiler/embed/test.rkt +++ b/compiler-test/tests/compiler/embed/test.rkt @@ -354,6 +354,14 @@ (path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me23.rkt"))) (try-exe (mk-dest mred?) "1\n2\n" mred?) + ;; raco exe on a module with `place` + (system+ raco + "exe" + "-o" (path->string (mk-dest mred?)) + (if mred? "--gui" "--") + (path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me28.rkt"))) + (try-exe (mk-dest mred?) "28\n" mred?) + ;; raco exe --launcher (system+ raco "exe" @@ -656,13 +664,13 @@ ;; ---------------------------------------- -(try-basic) -(try-mzc) -(try-extension) -(try-gracket) -(try-reader) -(try-planet) -(try-*sl) +;(try-basic) +;(try-mzc) +;(try-extension) +;(try-gracket) +;(try-reader) +;(try-planet) +;(try-*sl) (try-source) ;; ----------------------------------------