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

adjust raco exe tests to use racocs, etc.

Browse Source
This commit is contained in:
Matthew Flatt 2018-11-29 10:38:40 -07:00
parent 2e3b16f77c
commit 4d032bdd64
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkgs/compiler-test/tests/compiler/embed/test.rkt
View File

@ -323,13 +323,17 @@
;; Try the raco interface: ;; Try the raco interface:
(require setup/dirs (require setup/dirs
mzlib/file) mzlib/file
(define mzc (build-path (find-console-bin-dir) (if (eq? 'windows (system-type)) compiler/find-exe)
"mzc.exe" (define (add-suffixes s)
"mzc"))) (define me (path-replace-suffix (find-exe) #""))
(define raco (build-path (find-console-bin-dir) (if (eq? 'windows (system-type)) (define ending (regexp-match #rx#"(?i:racket)([cs3mg]*)$" me))
"raco.exe" (define s2 (string-append s (bytes->string/utf-8 (cadr ending))))
"raco"))) (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) (define (system+ . args)
(printf "> ~a\n" (car (reverse args))) (printf "> ~a\n" (car (reverse args)))