diff --git a/compiler-test/tests/compiler/embed/embed-me29-2.rkt b/compiler-test/tests/compiler/embed/embed-me29-2.rkt new file mode 100644 index 0000000000..28be26231b --- /dev/null +++ b/compiler-test/tests/compiler/embed/embed-me29-2.rkt @@ -0,0 +1,5 @@ +#lang racket/base + +(module inside racket/base + (define inside 'inside) + (provide inside)) diff --git a/compiler-test/tests/compiler/embed/embed-me29.rkt b/compiler-test/tests/compiler/embed/embed-me29.rkt new file mode 100644 index 0000000000..be6b4c3a3e --- /dev/null +++ b/compiler-test/tests/compiler/embed/embed-me29.rkt @@ -0,0 +1,5 @@ +#lang racket/base + +(module main racket/base + (require (submod "embed-me29-2.rkt" inside)) + inside) diff --git a/compiler-test/tests/compiler/embed/test.rkt b/compiler-test/tests/compiler/embed/test.rkt index d5e6dfb86e..2659443059 100644 --- a/compiler-test/tests/compiler/embed/test.rkt +++ b/compiler-test/tests/compiler/embed/test.rkt @@ -339,6 +339,14 @@ (try-exe (mk-dest mred?) "This is 20.\n" mred?) ;; raco exe on a module with a `configure-runtime' submodule + (system+ raco + "exe" + "-o" (path->string (mk-dest mred?)) + (if mred? "--gui" "--") + (path->string (build-path (collection-path "tests" "compiler" "embed") "embed-me29.rkt"))) + (try-exe (mk-dest mred?) "'inside\n" mred?) + + ;; raco exe on a module with a submodule that references another file's submodule (system+ raco "exe" "-o" (path->string (mk-dest mred?))