more test repairs

This commit is contained in:
Matthew Flatt 2013-06-22 07:11:17 -06:00
parent b8591a5a98
commit f6b8b6ed8e
3 changed files with 11 additions and 10 deletions

View File

@ -137,12 +137,12 @@
;; ----------------------------------------
;; test `file-stamp-in-paths'
(test (file-or-directory-modify-seconds (build-path (collection-path "file")
(test (file-or-directory-modify-seconds (build-path (path-only (collection-file-path "zip.rkt" "file"))
"compiled"
"gif_rkt.zo"))
"zip_rkt.zo"))
car
(file-stamp-in-collection
(build-path (collection-path "file") "gif.rkt")))
(collection-file-path "zip.rkt" "file")))
;; check bytecode without a source:
(let ([f (build-path dir "compiled" "nosrc_rkt.zo")])
(with-output-to-file f #:exists 'truncate (lambda () (write (compile #'(module nosrc racket/base)))))
@ -152,11 +152,10 @@
(build-path dir "nosrc.rkt")
(list dir))))
;; setup/main doesn't have a .zo:
(test (file-or-directory-modify-seconds (build-path (collection-path "setup")
"main.rkt"))
(test (file-or-directory-modify-seconds (collection-file-path "main.rkt" "setup"))
car
(file-stamp-in-collection
(build-path (collection-path "setup") "main.rkt")))
(collection-file-path "main.rkt" "setup")))
;; ----------------------------------------

View File

@ -59,12 +59,14 @@
(module-path-index-join #f #f)
(build-path (current-directory) "only.rkt"))
;; The "mzlib" and "ffi" collections are chosen to exist only in main "collects",
;; but that's fragile.
(let ([mzlib (collection-path "mzlib")]
[syntax (collection-path "syntax")])
[ffi (collection-path "ffi")])
(test-rmp (build-path mzlib "x.rkt") '(lib "x.ss") #f)
(test-rmp (build-path mzlib "x.rkt") '(lib "x.ss" "mzlib") #f)
(test-rmp (build-path syntax "x.rkt") '(lib "x.ss" "syntax") #f)
(test-rmp (build-path syntax "private" "x.rkt") '(lib "x.ss" "syntax" "private") #f)
(test-rmp (build-path ffi "x.rkt") '(lib "x.ss" "ffi") #f)
(test-rmp (build-path ffi "unsafe" "x.rkt") '(lib "x.ss" "ffi" "unsafe") #f)
(test-rmp (build-path (current-directory) "x.rkt") `(file ,(path->string (build-path (current-directory) "x.ss"))) #f)
(test-rmp (build-path (current-directory) "x.rkt") (build-path (current-directory) "x.ss") #f)
(test-rmp (build-path (current-directory) "x.rkt") (build-path "x.ss") #f)

View File

@ -307,7 +307,7 @@
--top--
(let* ([tmp (make-temporary-file "sandboxtest~a" 'directory)]
[strpath (lambda xs (path->string (apply build-path xs)))]
[racketlib (strpath (collection-path "racket"))]
[racketlib (strpath (path-only (collection-file-path "main.rkt" "racket")))]
[list-lib (strpath racketlib "list.rkt")]
[list-zo (strpath racketlib "compiled" "list_rkt.zo")]
[test-lib (strpath tmp "sandbox-test.rkt")]