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

adjust framework tests to properly find the racket executable

Browse Source
This commit is contained in:
Robby Findler 2013-08-10 09:33:01 -05:00
parent 847016b86c
commit 59ed6a832f
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkgs/gui-pkgs/gui-test/framework/tests/test-suite-utils.rkt
View File

@ -5,6 +5,7 @@
racket/system racket/system
racket/tcp racket/tcp
racket/pretty racket/pretty
compiler/find-exe
"debug.rkt") "debug.rkt")
(provide (provide
@ -86,22 +87,13 @@
(shutdown-mred) (shutdown-mred)
(thread (thread
(lambda () (lambda ()
(define racket-bin (define racket-bin (find-exe))
(path->string
(build-path
(let-values ([(dir exe _)
(split-path (find-system-path 'exec-file))])
(if (eq? dir 'relative)
'same
dir))
(if (eq? 'windows (system-type)) "Racket.exe" "racket"))))
(unless (system* (unless (system*
racket-bin racket-bin
(path->string (path->string
(collection-file-path "framework-test-engine.rkt" "framework" "tests"))) (collection-file-path "framework-test-engine.rkt" "framework" "tests")))
(eprintf "starting gracket failed; used path ~s; (find-system-path 'exec-file) = ~s\n" (eprintf "starting gracket failed; used path ~s\n"
racket-bin racket-bin))))
(find-system-path 'exec-file)))))
(debug-printf mz-tcp "accepting listener\n") (debug-printf mz-tcp "accepting listener\n")
(let-values ([(in out) (tcp-accept listener)]) (let-values ([(in out) (tcp-accept listener)])
(set! in-port in) (set! in-port in)