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

added tests for planet, fixed some bugs in moddep's planet handling

Browse Source 
svn: r2433
This commit is contained in:
Jacob Matthews 2006-03-15 16:59:57 +00:00
parent 575136e426
commit 6cef2e9230
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/syntax/moddep.ss
View File

@ -423,7 +423,7 @@
(let ((cols (cdddr s)))
`(planet
,(attach-to-relative-path-string
(append (cdr cols)
(append cols
(list (cadr s)))
".")
,(caddr s)))]
@ -493,7 +493,7 @@
(list/c (symbols 'file) (and/c string? path-string?))
;; not quite specific enough of a contract -- it should also spell out what's
;; allowed in the package spec
(cons/c (symbols 'planet) (cons/c (listof any/c) (listof string?)))
(cons/c (symbols 'planet) (cons/c string? (cons/c (listof any/c) (listof string?))))
path-string?))
(define rel-to-module-path-v/c

15
collects/tests/mzscheme/moddep.ss
View File

@ -1,5 +1,4 @@
;; FIXME: this file needs tests for planet paths
;; FIXME: this file needs to test resolve-module-path for planet paths
(load-relative "loadtest.ss")
@ -55,6 +54,9 @@
(test-rmp (build-path (current-directory) "x.ss") (build-path "x.ss") #f)
(void))
(err/rt-test (resolve-module-path "apple.ss" 'no))
(err/rt-test (resolve-module-path "/apple.ss" #f))
(err/rt-test (resolve-module-path "apple.ss/" #f))
@ -94,6 +96,15 @@
(build-path "x.ss")
`(file ,(path->string (build-path (current-directory) "other"))))
(test-cmp '(planet "x.ss" ("usr" "pkg.plt" 1)) "x.ss" '(planet "y.ss" ("usr" "pkg.plt" 1)))
(test-cmp '(planet "x.ss" ("usr" "pkg.plt" 1 0)) "x.ss" (lambda () '(planet "y.ss" ("usr" "pkg.plt" 1 0))))
(test-cmp '(planet "path/x.ss" ("a" "p.plt" 1)) "path/x.ss" '(planet "z.ss" ("a" "p.plt" 1)))
(test-cmp '(planet "path/../x.ss" ("a" "p.plt" 2)) "../x.ss" '(planet "path/z.ss" ("a" "p.plt" 2)))
(test-cmp '(planet "x.ss" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) '(planet "o.ss" ("a" "q.plt" 54 3)))
(test-cmp '(planet "x.ss" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) '(lib "o.ss" "nonesuch"))
(test-cmp '(planet "x.ss" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) '(file "q.ss"))
(test-cmp '(planet "x.ss" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) "where/in/the/world/cs.ss")
;; Try path cases that don't fit UTF-8 (and therefore would go wrong as a string):
(let ([dir (build-path (current-directory) (bytes->path #"\xFF"))])
(test-cmp (build-path dir "x.ss")