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

fix test suite for 40daf651b3

Browse Source
This commit is contained in:
Robby Findler 2013-11-14 07:14:24 -06:00
parent 40daf651b3
commit 5a0ddb3460
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt
View File

@ -186,6 +186,8 @@
(map string->path '("gui"))] (map string->path '("gui"))]
["/plt/pkgs/draw-pkgs/draw-lib/racket/gui" ["/plt/pkgs/draw-pkgs/draw-lib/racket/gui"
(map string->path '("draw.rkt"))] (map string->path '("draw.rkt"))]
["plt/pkgs/gui-pkgs/gui-lib/rackunit"
(map string->path '("something.rkt"))]
[_ '()])) [_ '()]))
(define (dir-exists? d) (define (dir-exists? d)
@ -193,7 +195,22 @@
(check-equal? (check-equal?
(find-completions/c "rack/" coll-table dir-list dir-exists?) (find-completions/c "rack/" coll-table dir-list dir-exists?)
'()) `(("gui" ,(string->path "/plt/pkgs/draw-pkgs/draw-lib/racket/gui"))
("gui" ,(string->path "/plt/racket/collects/racket/gui"))
("include.rkt" ,(string->path "/plt/racket/collects/racket/include.rkt"))
("info.rkt" ,(string->path "/plt/racket/collects/racket/info.rkt"))
("init.rkt" ,(string->path "/plt/racket/collects/racket/init.rkt"))
("list.rkt" ,(string->path "/plt/racket/collects/racket/list.rkt"))
("something.rkt" ,(string->path "plt/pkgs/gui-pkgs/gui-lib/rackunit/something.rkt"))))
(check-equal?
(find-completions/c "racke/" coll-table dir-list dir-exists?)
`(("gui" ,(string->path "/plt/pkgs/draw-pkgs/draw-lib/racket/gui"))
("gui" ,(string->path "/plt/racket/collects/racket/gui"))
("include.rkt" ,(string->path "/plt/racket/collects/racket/include.rkt"))
("info.rkt" ,(string->path "/plt/racket/collects/racket/info.rkt"))
("init.rkt" ,(string->path "/plt/racket/collects/racket/init.rkt"))
("list.rkt" ,(string->path "/plt/racket/collects/racket/list.rkt"))))
(check-equal? (check-equal?
(find-completions/c "rack" coll-table dir-list dir-exists?) (find-completions/c "rack" coll-table dir-list dir-exists?)