From 6a5b7ae9f966bf7aa10a59846441d975a7aeb3ac Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 1 Apr 2016 16:23:00 -0600 Subject: [PATCH] add `raco exe` test for a submodule reference from a submodule --- compiler-test/tests/compiler/embed/embed-me29-2.rkt | 5 +++++ compiler-test/tests/compiler/embed/embed-me29.rkt | 5 +++++ compiler-test/tests/compiler/embed/test.rkt | 8 ++++++++ 3 files changed, 18 insertions(+) create mode 100644 compiler-test/tests/compiler/embed/embed-me29-2.rkt create mode 100644 compiler-test/tests/compiler/embed/embed-me29.rkt 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?))