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

fix test to work with ".zo" via compiled-file-roots

Browse Source
This commit is contained in:
Matthew Flatt 2021-02-21 12:58:18 -07:00
parent d3b4d14287
commit 5e9535b3a5
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkgs/racket-test-core/tests/racket/cm.rktl
View File

@ -190,9 +190,14 @@
;; ----------------------------------------
;; test `file-stamp-in-paths'
(test (file-or-directory-modify-seconds (build-path (path-only (collection-file-path "zip.rkt" "file"))
compiled-dir
"zip_rkt.zo"))
(test (file-or-directory-modify-seconds
(let ([dir (path-only (collection-file-path "zip.rkt" "file"))])
(for/or ([root (in-list (current-compiled-file-roots))])
(define file (if (relative-path? root)
(build-path dir root compiled-dir "zip_rkt.zo")
(build-path (reroot-path dir root) compiled-dir "zip_rkt.zo")))
(and (file-exists? file)
file))))
car
(file-stamp-in-collection
(collection-file-path "zip.rkt" "file")))