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

fix raco exe' for module+' submodules

Browse Source 
Closes PR 13116

Merge to v5.3.1

original commit: e1a6d2b07d
This commit is contained in:
Matthew Flatt 2012-10-17 16:14:29 -06:00
parent 639af63b3f
commit 5eaf286081
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/racket/embed-me20.rkt Normal file
View File

@ -0,0 +1,7 @@
#lang racket/base
;; like "embed-me16.rkt" using `module+'
(module+ main
(with-output-to-file "stdout"
(lambda () (printf "This is 20.\n"))
#:exists 'append))

8
collects/tests/racket/embed.rktl
View File

@ -288,6 +288,14 @@
(path->string (build-path (collection-path "tests" "racket") "embed-me16.rkt")))
(try-exe (mk-dest mred?) "This is 16.\n" mred?)
;; raco exe on a module with a `main' submodule+
(system* raco
"exe"
"-o" (path->string (mk-dest mred?))
(if mred? "--gui" "--")
(path->string (build-path (collection-path "tests" "racket") "embed-me20.rkt")))
(try-exe (mk-dest mred?) "This is 20.\n" mred?)
;;raco exe --launcher
(system* raco
"exe"