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:
(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)))