From e340719e5ea423c838d22c1f5b6f34b2329a263b Mon Sep 17 00:00:00 2001 From: Alexis King Date: Sat, 8 Oct 2016 16:23:01 -0700 Subject: [PATCH] Ignore git-http-backend stderr output in the pkg tests --- pkgs/racket-test/tests/pkg/git-http-proxy.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/pkgs/racket-test/tests/pkg/git-http-proxy.rkt b/pkgs/racket-test/tests/pkg/git-http-proxy.rkt index aa72124191..b621f1b8bd 100644 --- a/pkgs/racket-test/tests/pkg/git-http-proxy.rkt +++ b/pkgs/racket-test/tests/pkg/git-http-proxy.rkt @@ -49,9 +49,8 @@ #"CONTENT_TYPE" (header-value content-type)))) ; run git-http-backend - (match-define (list git-response-port git-body-port _ _ _) - (process*/ports #f #f (current-error-port) - (find-executable-path "git") "http-backend")) + (match-define (list git-response-port git-body-port _ git-info-port _) + (process* (find-executable-path "git") "http-backend")) ; pass POST body to git-http-backend (when (request-post-data/raw req) @@ -68,7 +67,8 @@ (response 200 #"OK" (current-seconds) #f headers (λ (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 [else (response/full 401 #"Authorization Required" (current-seconds) #"text/plain; charset=utf-8"