suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add raco exe test for a submodule reference from a submodule

Browse Source
This commit is contained in:
Matthew Flatt 2016-04-01 16:23:00 -06:00
parent 976c5e6e2b
commit 6a5b7ae9f9
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler-test/tests/compiler/embed/embed-me29-2.rkt Normal file
View File

@ -0,0 +1,5 @@
#lang racket/base
(module inside racket/base
(define inside 'inside)
(provide inside))

5
compiler-test/tests/compiler/embed/embed-me29.rkt Normal file
View File

@ -0,0 +1,5 @@
#lang racket/base
(module main racket/base
(require (submod "embed-me29-2.rkt" inside))
inside)

8
compiler-test/tests/compiler/embed/test.rkt
View File

@ -339,6 +339,14 @@
(try-exe (mk-dest mred?) "This is 20.\n" mred?) (try-exe (mk-dest mred?) "This is 20.\n" mred?)
;; raco exe on a module with a `configure-runtime' submodule ;; 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 (system+ raco
"exe" "exe"
"-o" (path->string (mk-dest mred?)) "-o" (path->string (mk-dest mred?))