From 9d2461bca5af9d05f940e252662146247a164578 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Oct 2011 10:08:09 -0600 Subject: [PATCH] more `raco exe' cycle repairs original commit: b6a9330bf1e9a3b5cfc177b1d091f8f2dae38086 --- collects/tests/racket/embed-me13.rkt | 4 ++++ collects/tests/racket/embed-me14.rkt | 5 +++++ collects/tests/racket/embed.rktl | 4 +++- 3 files changed, 12 insertions(+), 1 deletion(-) create mode 100644 collects/tests/racket/embed-me13.rkt create mode 100644 collects/tests/racket/embed-me14.rkt diff --git a/collects/tests/racket/embed-me13.rkt b/collects/tests/racket/embed-me13.rkt new file mode 100644 index 0000000000..a29c30b53e --- /dev/null +++ b/collects/tests/racket/embed-me13.rkt @@ -0,0 +1,4 @@ +#lang racket/base +(require racket/runtime-path) +(define-runtime-module-path-index _mod "embed-me14.rkt") +(dynamic-require _mod #f) diff --git a/collects/tests/racket/embed-me14.rkt b/collects/tests/racket/embed-me14.rkt new file mode 100644 index 0000000000..0de4c9e9a2 --- /dev/null +++ b/collects/tests/racket/embed-me14.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(require "embed-me13.rkt") +(with-output-to-file "stdout" + (lambda () (printf "This is 14\n")) + #:exists 'append) diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl index 8186067b57..be92fb8b7b 100644 --- a/collects/tests/racket/embed.rktl +++ b/collects/tests/racket/embed.rktl @@ -216,6 +216,8 @@ (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-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: (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 (delete-directory/files "cts") (test #f system* (mk-dest mred?)) - + (void))) (define (try-mzc)