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

fix more bugs with lib paths in exe creation

Browse Source 
svn: r12175

original commit: 487df2362e
This commit is contained in:
Matthew Flatt 2008-10-30 10:55:07 +00:00
parent 25ac110c4f
commit 0150fc24ed
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/embed-me1d.ss Normal file
View File

@ -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)

8
collects/tests/mzscheme/embed-me1e.ss Normal file
View File

@ -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)

2
collects/tests/mzscheme/embed.ss
View File

@ -213,6 +213,8 @@
(one-mz-test "embed-me1.ss" "This is 1\n" #t) (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-me1b.ss" "This is 1b\n" #f)
(one-mz-test "embed-me1c.ss" "This is 1c\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) (one-mz-test "embed-me2.ss" "This is 1\nThis is 2: #t\n" #t)
;; Try unicode expr and cmdline: ;; Try unicode expr and cmdline: