From 59ed6a832f6129988a651d340d48f88b9638c16b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 10 Aug 2013 09:33:01 -0500
Subject: [PATCH] adjust framework tests to properly find the racket executable

---
 .../framework/tests/test-suite-utils.rkt         | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/pkgs/gui-pkgs/gui-test/framework/tests/test-suite-utils.rkt b/pkgs/gui-pkgs/gui-test/framework/tests/test-suite-utils.rkt
index 62ea3c4891..b5daf8cb48 100644
--- a/pkgs/gui-pkgs/gui-test/framework/tests/test-suite-utils.rkt
+++ b/pkgs/gui-pkgs/gui-test/framework/tests/test-suite-utils.rkt
@@ -5,6 +5,7 @@
          racket/system
          racket/tcp
          racket/pretty
+         compiler/find-exe
          "debug.rkt")
 
 (provide
@@ -86,22 +87,13 @@
   (shutdown-mred)
   (thread
    (lambda ()
-     (define racket-bin
-       (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"))))
+     (define racket-bin (find-exe))
      (unless (system*
               racket-bin
               (path->string
                (collection-file-path "framework-test-engine.rkt" "framework" "tests")))
-       (eprintf "starting gracket failed; used path ~s; (find-system-path 'exec-file) = ~s\n"
-                racket-bin
-                (find-system-path 'exec-file)))))
+       (eprintf "starting gracket failed; used path ~s\n"
+                racket-bin))))
   (debug-printf mz-tcp "accepting listener\n")
   (let-values ([(in out) (tcp-accept listener)])
     (set! in-port in)