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

further repair for test with 'same in compiled-file-roots

Browse Source
This commit is contained in:
Matthew Flatt 2021-02-21 15:11:32 -07:00
parent 5e9535b3a5
commit 6099ec80b3
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -193,9 +193,13 @@
(test (file-or-directory-modify-seconds (test (file-or-directory-modify-seconds
(let ([dir (path-only (collection-file-path "zip.rkt" "file"))]) (let ([dir (path-only (collection-file-path "zip.rkt" "file"))])
(for/or ([root (in-list (current-compiled-file-roots))]) (for/or ([root (in-list (current-compiled-file-roots))])
(define file (if (relative-path? root) (define file (cond
(build-path dir root compiled-dir "zip_rkt.zo") [(eq? root 'same)
(build-path (reroot-path dir root) compiled-dir "zip_rkt.zo"))) (build-path dir compiled-dir "zip_rkt.zo")]
[(relative-path? root)
(build-path dir root compiled-dir "zip_rkt.zo")]
[else
(build-path (reroot-path dir root) compiled-dir "zip_rkt.zo")]))
(and (file-exists? file) (and (file-exists? file)
file)))) file))))
car car