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

update tests/syntax/modcode for Racket CS

Browse Source
This commit is contained in:
Matthew Flatt 2019-05-21 14:56:19 -06:00
parent 16ceb4a711
commit cf9ae3b200
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-test/tests/syntax/modcode.rkt
View File

@ -5,7 +5,12 @@
(define file.rkt (build-path dir "file.rkt")) (define file.rkt (build-path dir "file.rkt"))
(define file.ss (build-path dir "file.ss")) (define file.ss (build-path dir "file.ss"))
(define compiled-dir (build-path dir "compiled")) (define compiled-subdir (let ([l (use-compiled-file-paths)])
(if (pair? l)
(car l)
"compiled")))
(define compiled-dir (build-path dir compiled-subdir))
(make-directory* compiled-dir) (make-directory* compiled-dir)
(define (test expect proc . args) (define (test expect proc . args)
@ -17,7 +22,7 @@
(printf "trying ~s\n" (list file.sfx src? zo? so?)) (printf "trying ~s\n" (list file.sfx src? zo? so?))
(define file.zo (define file.zo
(let-values ([(base name dir?) (split-path file.sfx)]) (let-values ([(base name dir?) (split-path file.sfx)])
(build-path base "compiled" (path-add-suffix name #".zo")))) (build-path base compiled-subdir (path-add-suffix name #".zo"))))
(define file.rkt (path-replace-suffix file.sfx #".rkt")) (define file.rkt (path-replace-suffix file.sfx #".rkt"))
(define file.so (path-replace-suffix file.sfx #".so")) (define file.so (path-replace-suffix file.sfx #".so"))
(when (file-exists? file.ss) (delete-file file.ss)) (when (file-exists? file.ss) (delete-file file.ss))