From 0150fc24ed34d1f8fd0a91762f378766f4395698 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 30 Oct 2008 10:55:07 +0000 Subject: [PATCH] fix more bugs with lib paths in exe creation svn: r12175 original commit: 487df2362e2648289120340f11947aa52b8a3bfa --- collects/tests/mzscheme/embed-me1d.ss | 8 ++++++++ collects/tests/mzscheme/embed-me1e.ss | 8 ++++++++ collects/tests/mzscheme/embed.ss | 2 ++ 3 files changed, 18 insertions(+) create mode 100644 collects/tests/mzscheme/embed-me1d.ss create mode 100644 collects/tests/mzscheme/embed-me1e.ss diff --git a/collects/tests/mzscheme/embed-me1d.ss b/collects/tests/mzscheme/embed-me1d.ss new file mode 100644 index 0000000000..cc6b750193 --- /dev/null +++ b/collects/tests/mzscheme/embed-me1d.ss @@ -0,0 +1,8 @@ +#lang scheme/base + +(require scheme/runtime-path + (for-syntax scheme/base)) +(define-runtime-path file '(lib "file.gif" "icons")) +(with-output-to-file "stdout" + (lambda () (printf "This is 1d~n")) + #:exists 'append) diff --git a/collects/tests/mzscheme/embed-me1e.ss b/collects/tests/mzscheme/embed-me1e.ss new file mode 100644 index 0000000000..645df59905 --- /dev/null +++ b/collects/tests/mzscheme/embed-me1e.ss @@ -0,0 +1,8 @@ +#lang scheme/base + +(require scheme/runtime-path + (for-syntax scheme/base)) +(define-runtime-path file '(lib "html")) +(with-output-to-file "stdout" + (lambda () (printf "This is 1e~n")) + #:exists 'append) diff --git a/collects/tests/mzscheme/embed.ss b/collects/tests/mzscheme/embed.ss index cf4963ac63..e7aa33ba27 100644 --- a/collects/tests/mzscheme/embed.ss +++ b/collects/tests/mzscheme/embed.ss @@ -213,6 +213,8 @@ (one-mz-test "embed-me1.ss" "This is 1\n" #t) (one-mz-test "embed-me1b.ss" "This is 1b\n" #f) (one-mz-test "embed-me1c.ss" "This is 1c\n" #f) + (one-mz-test "embed-me1d.ss" "This is 1d\n" #f) + (one-mz-test "embed-me1e.ss" "This is 1e\n" #f) (one-mz-test "embed-me2.ss" "This is 1\nThis is 2: #t\n" #t) ;; Try unicode expr and cmdline: