From 02318ebcb3509f873a560417badfcb799fd3a4c0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 6 Aug 2012 14:27:29 -0600 Subject: [PATCH] fix test to work with relative executable path --- collects/tests/racket/setup.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/setup.rktl b/collects/tests/racket/setup.rktl index b9b21d1089..cd0d8618de 100644 --- a/collects/tests/racket/setup.rktl +++ b/collects/tests/racket/setup.rktl @@ -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))