fix non-portable test
This commit is contained in:
parent
3a46b5dd08
commit
9093acbfb8
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user