diff options
| author | Brett Gilio <brettg@posteo.net> | 2019-12-13 07:57:51 -0600 |
|---|---|---|
| committer | Brett Gilio <brettg@posteo.net> | 2019-12-13 07:58:30 -0600 |
| commit | 94c7f70faa0ba0409099b423df6534718d7518cc (patch) | |
| tree | 97586676534c56491725c0ed9e6299e89888fde6 /guix/tests | |
| parent | 7711db7f4ec24015d7c2412ef1e624cbf8110ed3 (diff) | |
| parent | 19ba75dc02c4ff072f96296543a00737bcf24bf9 (diff) | |
| download | guix-patches-94c7f70faa0ba0409099b423df6534718d7518cc.tar guix-patches-94c7f70faa0ba0409099b423df6534718d7518cc.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/tests')
| -rw-r--r-- | guix/tests/http.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/tests/http.scm b/guix/tests/http.scm index 05ce39bca2..4119e9ce01 100644 --- a/guix/tests/http.scm +++ b/guix/tests/http.scm @@ -65,14 +65,14 @@ needed." (close-port socket) #t))) -(define (%local-url) +(define* (%local-url #:optional (port (%http-server-port))) ;; URL to use for 'home-page' tests. - (string-append "http://localhost:" (number->string (%http-server-port)) + (string-append "http://localhost:" (number->string port) "/foo/bar")) (define* (call-with-http-server responses+data thunk) "Call THUNK with an HTTP server running and returning RESPONSES+DATA on HTTP -requests. Each elements of RESPONSES+DATA must be a tuple containing a +requests. Each element of RESPONSES+DATA must be a tuple containing a response and a string, or an HTTP response code and a string." (define responses (map (match-lambda |