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

Add tests for get-module-path.

Browse Source
This commit is contained in:
Carl Eastlund 2013-06-09 23:18:26 -04:00
parent db1ba7af5e
commit b201b826fe
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/tests/syntax/modcode.rkt
View File

@ -46,6 +46,19 @@
o))))
(define (check-name name code)
(test name module-compiled-name code))
(define-values (m-path m-type)
(get-module-path file.sfx
#:choose (lambda (src zo so)
(test src? file-exists? src)
(test zo? file-exists? zo)
(test so? file-exists? so)
#f)))
(test
(cond
[zo? (list file.zo 'zo)]
[so? (list file.so 'so)]
[else (list file.sfx 'src)])
list m-path m-type)
(check-name
'file
(get-module-code file.sfx
@ -54,6 +67,19 @@
(test zo? file-exists? zo)
(test so? file-exists? so)
#f)))
(define-values (sm-path sm-type)
(get-module-path file.sfx
#:submodule? #t
#:choose (lambda (src zo so)
(test src? file-exists? src)
(test zo? file-exists? zo)
(test so? file-exists? so)
#f)))
(test
(cond
[zo? (list file.zo 'zo)]
[else (list file.sfx 'src)])
list sm-path sm-type)
(check-name
'(file inner)
(get-module-code file.sfx