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

fix test to work with relative executable path

Browse Source
This commit is contained in:
Matthew Flatt 2012-08-06 14:27:29 -06:00
parent 13d7a37eb6
commit 02318ebcb3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,14 +21,14 @@
(err/rt-test (path->relative-string/setup #"bleh"))
(err/rt-test (path->relative-string/setup 'bleh)))
(require unstable/file)
(require compiler/find-exe)
(let ()
(define tmpdir (make-temporary-file "tmp~a" 'directory (current-directory)))
(define tmppath (build-path tmpdir "tmp.rkt"))
(with-output-to-file (build-path tmpdir "tmp.rkt") #:exists 'replace
(lambda ()
(printf "#lang racket\n")))
(define exec-path (find-system-path 'exec-file))
(define exec-path (find-exe))
(define relpath (find-relative-path (current-directory) tmppath))
(test #t system* exec-path "-l" "raco" "make" "-j" "2" (path->string relpath))