suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix SECTION case, sort directory-list results

Browse Source 
svn: r3210
This commit is contained in:
Matthew Flatt 2006-06-04 01:50:09 +00:00
parent acb08c5e62
commit c1f4dce5d8
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/boundmap-test.ss
View File

@ -2,7 +2,7 @@
(require (lib "boundmap.ss" "syntax")) (require (lib "boundmap.ss" "syntax"))
(section 'BOUNDMAP) (SECTION 'BOUNDMAP)
(test #t bound-identifier-mapping? (make-bound-identifier-mapping)) (test #t bound-identifier-mapping? (make-bound-identifier-mapping))

10
collects/tests/mzscheme/filelib.ss
View File

@ -4,7 +4,8 @@
(SECTION 'file) (SECTION 'file)
(require (lib "file.ss") (require (lib "file.ss")
(lib "process.ss")) (lib "process.ss")
(lib "list.ss"))
(parameterize ([current-directory (current-load-relative-directory)]) (parameterize ([current-directory (current-load-relative-directory)])
(let ([rel (find-files values)] (let ([rel (find-files values)]
@ -24,8 +25,11 @@
'file 'file
'dir)) 'dir))
(cons name accum)) (cons name accum))
null)]) null)]
(test #t equal? rel rel2) [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) (when (eq? (system-type) 'unix)
(system "ln -s filelib.ss filelib-link.ss") (system "ln -s filelib.ss filelib-link.ss")