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

add some tests for `path-module-path'

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-08 07:01:03 -06:00
parent 47f2742575
commit fb64f06eaf
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkgs/racket-pkgs/racket-test/tests/racket/setup.rktl
View File

@ -2,6 +2,8 @@
(Section 'setup)
;; ----------------------------------------
(require setup/path-to-relative)
(let ([missing "/some/inexistent/path"]
@ -21,7 +23,20 @@
(err/rt-test (path->relative-string/setup #"bleh"))
(err/rt-test (path->relative-string/setup 'bleh)))
;; ----------------------------------------
(require setup/collects)
(for ([i '([("main.rkt" "racket") (lib "racket/main.rkt")]
[("reader.rkt" "scribble") (lib "scribble/reader.rkt")])])
(test (cadr i) path->module-path (apply collection-file-path (car i))))
(test "a/b" path->module-path "a/b")
(test (find-system-path 'temp-dir) path->module-path (find-system-path 'temp-dir))
;; ----------------------------------------
(require compiler/find-exe)
(let ()
(define tmpdir (make-temporary-file "tmp~a" 'directory (current-directory)))
(define tmppath (build-path tmpdir "tmp.rkt"))
@ -34,5 +49,6 @@
(test #t system* exec-path "-l" "raco" "make" "-j" "2" (path->string relpath))
(delete-directory/files tmpdir))
;; ----------------------------------------
(report-errs)