From c1f4dce5d88e76f451175c50aaa9ebee3907bee7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 4 Jun 2006 01:50:09 +0000 Subject: [PATCH] fix SECTION case, sort directory-list results svn: r3210 --- collects/tests/mzscheme/boundmap-test.ss | 2 +- collects/tests/mzscheme/filelib.ss | 10 +++++++--- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/collects/tests/mzscheme/boundmap-test.ss b/collects/tests/mzscheme/boundmap-test.ss index 29593fe17e..5ff154b5c0 100644 --- a/collects/tests/mzscheme/boundmap-test.ss +++ b/collects/tests/mzscheme/boundmap-test.ss @@ -2,7 +2,7 @@ (require (lib "boundmap.ss" "syntax")) -(section 'BOUNDMAP) +(SECTION 'BOUNDMAP) (test #t bound-identifier-mapping? (make-bound-identifier-mapping)) diff --git a/collects/tests/mzscheme/filelib.ss b/collects/tests/mzscheme/filelib.ss index c236a84c98..d2d6dff620 100644 --- a/collects/tests/mzscheme/filelib.ss +++ b/collects/tests/mzscheme/filelib.ss @@ -4,7 +4,8 @@ (SECTION 'file) (require (lib "file.ss") - (lib "process.ss")) + (lib "process.ss") + (lib "list.ss")) (parameterize ([current-directory (current-load-relative-directory)]) (let ([rel (find-files values)] @@ -24,8 +25,11 @@ 'file 'dir)) (cons name accum)) - null)]) - (test #t equal? rel rel2) + null)] + [sort (lambda (l) + (sort l (lambda (a b) + (bytesbytes a) (path->bytes b)))))]) + (test #t equal? (sort rel) (sort rel2)) (when (eq? (system-type) 'unix) (system "ln -s filelib.ss filelib-link.ss")