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

fix cm test

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-30 20:19:53 -06:00
parent e42758eb2a
commit fa538620e8
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/tests/racket/cm.rkt
View File

@ -94,7 +94,8 @@
(let-values ([(base name dir) (split-path x)]) (let-values ([(base name dir) (split-path x)])
(cond (cond
[(equal? (path->string name) "b.rkt") [(equal? (path->string name) "b.rkt")
(file-or-directory-modify-seconds x)] (cons (file-or-directory-modify-seconds x)
"")]
[else #f])))]) [else #f])))])
(try '(("a.rkt" "(module a scheme/base (require \"b.rkt\"))" #f) (try '(("a.rkt" "(module a scheme/base (require \"b.rkt\"))" #f)
("b.rkt" "(module b scheme/base)" #f)) ("b.rkt" "(module b scheme/base)" #f))
@ -102,23 +103,26 @@
;; ---------------------------------------- ;; ----------------------------------------
;; test `file-date-in-paths' ;; test `file-stamp-in-paths'
(test (file-or-directory-modify-seconds (build-path (collection-path "file") (test (file-or-directory-modify-seconds (build-path (collection-path "file")
"compiled" "compiled"
"gif_rkt.zo")) "gif_rkt.zo"))
file-date-in-collection car
(build-path (collection-path "file") "gif.rkt")) (file-stamp-in-collection
(build-path (collection-path "file") "gif.rkt")))
;; gl-info.rkt doesn't have a .rkt source: ;; gl-info.rkt doesn't have a .rkt source:
(test (file-or-directory-modify-seconds (build-path (collection-path "sgl") (test (file-or-directory-modify-seconds (build-path (collection-path "sgl")
"compiled" "compiled"
"gl-info_rkt.zo")) "gl-info_rkt.zo"))
file-date-in-collection car
(build-path (collection-path "sgl") "gl-info.rkt")) (file-stamp-in-collection
(build-path (collection-path "sgl") "gl-info.rkt")))
;; setup/main doesn't have a .zo: ;; setup/main doesn't have a .zo:
(test (file-or-directory-modify-seconds (build-path (collection-path "setup") (test (file-or-directory-modify-seconds (build-path (collection-path "setup")
"main.rkt")) "main.rkt"))
file-date-in-collection car
(build-path (collection-path "setup") "main.rkt")) (file-stamp-in-collection
(build-path (collection-path "setup") "main.rkt")))
;; ---------------------------------------- ;; ----------------------------------------