fix non-portable test

This commit is contained in:
Matthew Flatt 2012-05-17 08:40:34 -06:00
parent 3a46b5dd08
commit 9093acbfb8

View File

@ -171,9 +171,11 @@
(or (equal? l (map bytes->path '(#"deep" #"tmp8x")))
(equal? l (map bytes->path '(#"tmp8x" #"deep"))))))
(test #t 'directory-list
(let ([l (directory-list "down" #:build? #t)])
(or (equal? l (map bytes->path '(#"down/deep" #"down/tmp8x")))
(equal? l (map bytes->path '(#"down/tmp8x" #"down/deep"))))))
(let ([l (directory-list "down" #:build? #t)]
[l2 (list (build-path "down" "deep")
(build-path "down" "tmp8x"))])
(or (equal? l l2)
(equal? l (reverse l2)))))
(test (list (bytes->path #"tmp7x")) directory-list deepdir)
(test #f delete-directory/tf deepdir)