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

more `raco exe' cycle repairs

Browse Source 
original commit: b6a9330bf1
This commit is contained in:
Matthew Flatt 2011-10-07 10:08:09 -06:00
parent 7d7888d2ba
commit 9d2461bca5
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/racket/embed-me13.rkt Normal file
View File

@ -0,0 +1,4 @@
#lang racket/base
(require racket/runtime-path)
(define-runtime-module-path-index _mod "embed-me14.rkt")
(dynamic-require _mod #f)

5
collects/tests/racket/embed-me14.rkt Normal file
View File

@ -0,0 +1,5 @@
#lang racket/base
(require "embed-me13.rkt")
(with-output-to-file "stdout"
(lambda () (printf "This is 14\n"))
#:exists 'append)

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

@ -216,6 +216,8 @@
(one-mz-test "embed-me1d.rkt" "This is 1d\n" #f) (one-mz-test "embed-me1d.rkt" "This is 1d\n" #f)
(one-mz-test "embed-me1e.rkt" "This is 1e\n" #f) (one-mz-test "embed-me1e.rkt" "This is 1e\n" #f)
(one-mz-test "embed-me2.rkt" "This is 1\nThis is 2: #t\n" #t) (one-mz-test "embed-me2.rkt" "This is 1\nThis is 2: #t\n" #t)
(one-mz-test "embed-me13.rkt" "This is 14\n" #f)
(one-mz-test "embed-me14.rkt" "This is 14\n" #f)
;; Try unicode expr and cmdline: ;; Try unicode expr and cmdline:
(prepare dest "unicode") (prepare dest "unicode")
@ -304,7 +306,7 @@
(try-exe (mk-dest mred?) "This is 6\n#t\n" mred? void "cts") ; <- cts copied to distribution (try-exe (mk-dest mred?) "This is 6\n#t\n" mred? void "cts") ; <- cts copied to distribution
(delete-directory/files "cts") (delete-directory/files "cts")
(test #f system* (mk-dest mred?)) (test #f system* (mk-dest mred?))
(void))) (void)))
(define (try-mzc) (define (try-mzc)