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

Ignore git-http-backend stderr output in the pkg tests

Browse Source
This commit is contained in:
Alexis King 2016-10-08 16:23:01 -07:00
parent d171218215
commit e340719e5e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-test/tests/pkg/git-http-proxy.rkt
View File

@ -49,9 +49,8 @@
#"CONTENT_TYPE" (header-value content-type)))) #"CONTENT_TYPE" (header-value content-type))))
; run git-http-backend ; run git-http-backend
(match-define (list git-response-port git-body-port _ _ _) (match-define (list git-response-port git-body-port _ git-info-port _)
(process*/ports #f #f (current-error-port) (process* (find-executable-path "git") "http-backend"))
(find-executable-path "git") "http-backend"))
; pass POST body to git-http-backend ; pass POST body to git-http-backend
(when (request-post-data/raw req) (when (request-post-data/raw req)
@ -68,7 +67,8 @@
(response 200 #"OK" (current-seconds) #f headers (response 200 #"OK" (current-seconds) #f headers
(λ (out) (λ (out)
(copy-port git-response-port out) (copy-port git-response-port out)
(close-input-port git-response-port))))] (close-input-port git-response-port)
(close-input-port git-info-port))))]
; if authorization fails, return a WWW-Authenticate header ; if authorization fails, return a WWW-Authenticate header
[else (response/full 401 #"Authorization Required" (current-seconds) [else (response/full 401 #"Authorization Required" (current-seconds)
#"text/plain; charset=utf-8" #"text/plain; charset=utf-8"