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

have drdr ignore stderr that doesn't matter

Browse Source
This commit is contained in:
Jay McCarthy 2014-04-16 15:36:40 -06:00
parent ccacb3ac11
commit 4e6ce98823
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkgs/racket-pkgs/racket-test/tests/pkg/util.rkt
View File

@ -114,15 +114,16 @@
(define *index-ht-1* (make-hash)) (define *index-ht-1* (make-hash))
(define *index-ht-2* (make-hash)) (define *index-ht-2* (make-hash))
(define (start-pkg-server index-ht port) (define (start-pkg-server index-ht port)
(serve/servlet (pkg-index/basic (parameterize ([current-error-port (current-output-port)])
(λ (pkg-name) (serve/servlet (pkg-index/basic
(define r (hash-ref index-ht pkg-name #f)) (λ (pkg-name)
(printf "[>server ~a] ~a = ~a\n" port pkg-name r) (define r (hash-ref index-ht pkg-name #f))
r) (printf "[>server ~a] ~a = ~a\n" port pkg-name r)
(λ () index-ht)) r)
#:command-line? #t (λ () index-ht))
#:servlet-regexp #rx"" #:command-line? #t
#:port port)) #:servlet-regexp #rx""
#:port port)))
(define servers-on? #f) (define servers-on? #f)
(define (with-servers* t) (define (with-servers* t)