fix SECTION case, sort directory-list results

svn: r3210

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))
 

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)
+			    (bytes<? (path->bytes a) (path->bytes b)))))])
+      (test #t equal? (sort rel) (sort rel2))
 
       (when (eq? (system-type) 'unix)
 	(system "ln -s filelib.ss filelib-link.ss")