From 9093acbfb8753e51b589a0787b0ae17089fa27ca Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 17 May 2012 08:40:34 -0600 Subject: [PATCH] fix non-portable test --- collects/tests/racket/path.rktl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/tests/racket/path.rktl b/collects/tests/racket/path.rktl index b101e313e9..45c9f571dc 100644 --- a/collects/tests/racket/path.rktl +++ b/collects/tests/racket/path.rktl @@ -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)