From 5a0ddb3460a1e1f08ebb74e7c6a3ac6a326f375f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 14 Nov 2013 07:14:24 -0600 Subject: [PATCH] fix test suite for 40daf651b362102eb208fb951c2d52127b48df74 --- .../drracket/private/find-completions.rkt | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt index 60c67aecff..ce3227918c 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt @@ -186,6 +186,8 @@ (map string->path '("gui"))] ["/plt/pkgs/draw-pkgs/draw-lib/racket/gui" (map string->path '("draw.rkt"))] + ["plt/pkgs/gui-pkgs/gui-lib/rackunit" + (map string->path '("something.rkt"))] [_ '()])) (define (dir-exists? d) @@ -193,7 +195,22 @@ (check-equal? (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? (find-completions/c "rack" coll-table dir-list dir-exists?)