From 4d032bdd649cad27e1a0b98c30e9c71edfd038f3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Nov 2018 10:38:40 -0700 Subject: [PATCH] adjust `raco exe` tests to use `racocs`, etc. --- .../tests/compiler/embed/test.rkt | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/pkgs/compiler-test/tests/compiler/embed/test.rkt b/pkgs/compiler-test/tests/compiler/embed/test.rkt index d36a4ca3d6..df47c4ff89 100644 --- a/pkgs/compiler-test/tests/compiler/embed/test.rkt +++ b/pkgs/compiler-test/tests/compiler/embed/test.rkt @@ -323,13 +323,17 @@ ;; Try the raco interface: (require setup/dirs - mzlib/file) -(define mzc (build-path (find-console-bin-dir) (if (eq? 'windows (system-type)) - "mzc.exe" - "mzc"))) -(define raco (build-path (find-console-bin-dir) (if (eq? 'windows (system-type)) - "raco.exe" - "raco"))) + mzlib/file + compiler/find-exe) +(define (add-suffixes s) + (define me (path-replace-suffix (find-exe) #"")) + (define ending (regexp-match #rx#"(?i:racket)([cs3mg]*)$" me)) + (define s2 (string-append s (bytes->string/utf-8 (cadr ending)))) + (if (eq? 'windows (system-type)) + (string-append s2 ".exe") + s2)) +(define mzc (build-path (find-console-bin-dir) (add-suffixes "mzc"))) +(define raco (build-path (find-console-bin-dir) (add-suffixes "raco"))) (define (system+ . args) (printf "> ~a\n" (car (reverse args)))