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

raco exe: fix problem with dynamically resolved relative submodules

Browse Source 
original commit: 846c247aa3
This commit is contained in:
Matthew Flatt 2013-11-08 13:21:45 -07:00
parent dfa0381b92
commit d0d458e1a3
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-pkgs/racket-test/tests/racket/embed-me23.rkt Normal file
View File

@ -0,0 +1,8 @@
#lang racket/base
(require racket/serialize)
(serializable-struct foo (a b))
(define f (deserialize (serialize (foo 1 2))))
(foo-a f)
(foo-b f)

8
pkgs/racket-pkgs/racket-test/tests/racket/embed.rktl
View File

@ -312,6 +312,14 @@
(path->string (build-path (collection-path "tests" "racket") "embed-me22.rkt")))
(try-exe (mk-dest mred?) "Configure!\nThis is 22.\n" mred?)
;; raco exe on a module with serialization
(system* raco
"exe"
"-o" (path->string (mk-dest mred?))
(if mred? "--gui" "--")
(path->string (build-path (collection-path "tests" "racket") "embed-me23.rkt")))
(try-exe (mk-dest mred?) "1\n2\n" mred?)
;; raco exe --launcher
(system* raco
"exe"