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

Add tests for resolve-module-path-* with optional argument

Browse Source
This commit is contained in:
Leif Andersen 2016-05-19 19:41:23 -04:00
parent c3313b13dc
commit 42e27fb4f7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-test-core/tests/racket/moddep.rktl
View File

@ -81,11 +81,15 @@
(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"))
(err/rt-test (resolve-module-path "apple.ss/" #f))
(err/rt-test (resolve-module-path "apple.ss/"))
(err/rt-test (resolve-module-path "app\u00E9le.ss" #f))
(err/rt-test (resolve-module-path-index "apple.ss" #f))
(err/rt-test (resolve-module-path-index "apple.ss"))
(err/rt-test (resolve-module-path-index (module-path-index-join #f #f) #f) exn:fail?)
(err/rt-test (resolve-module-path-index (module-path-index-join #f #f)) exn:fail?)
(when (eq? (system-path-convention-type) 'unix)
(test (expand-user-path "~/x.rkt") resolve-module-path '(file "~/x.rkt") #f))