fix test for previous commit

This commit is contained in:
Matthew Flatt 2013-10-06 17:57:11 -06:00
parent 5eee14032f
commit 2728c5fb21

View File

@ -34,7 +34,7 @@
(let ([out (build-path (let-values ([(base name dir?) (split-path p)])
base)
"../info.rkt")])
(test (simplify-path out) path->module-path out)))
(test out path->module-path out)))
(test "a/b" path->module-path "a/b")
(test (find-system-path 'temp-dir) path->module-path (find-system-path 'temp-dir))