diff options
Diffstat (limited to 'tests/derivations.scm')
| -rw-r--r-- | tests/derivations.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm index f3aad1b9067..36afd42d05c 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm | |||
| @@ -222,7 +222,7 @@ | |||
| 222 | (build-derivations %store (list drv)) | 222 | (build-derivations %store (list drv)) |
| 223 | #f))) | 223 | #f))) |
| 224 | 224 | ||
| 225 | (unless (force %http-server-socket) | 225 | (unless (http-server-can-listen?) |
| 226 | (test-skip 1)) | 226 | (test-skip 1)) |
| 227 | (test-assert "'download' built-in builder" | 227 | (test-assert "'download' built-in builder" |
| 228 | (let ((text (random-text))) | 228 | (let ((text (random-text))) |
| @@ -238,7 +238,7 @@ | |||
| 238 | get-string-all) | 238 | get-string-all) |
| 239 | text)))))) | 239 | text)))))) |
| 240 | 240 | ||
| 241 | (unless (force %http-server-socket) | 241 | (unless (http-server-can-listen?) |
| 242 | (test-skip 1)) | 242 | (test-skip 1)) |
| 243 | (test-assert "'download' built-in builder, invalid hash" | 243 | (test-assert "'download' built-in builder, invalid hash" |
| 244 | (with-http-server 200 "hello, world!" | 244 | (with-http-server 200 "hello, world!" |
| @@ -253,7 +253,7 @@ | |||
| 253 | (build-derivations %store (list drv)) | 253 | (build-derivations %store (list drv)) |
| 254 | #f)))) | 254 | #f)))) |
| 255 | 255 | ||
| 256 | (unless (force %http-server-socket) | 256 | (unless (http-server-can-listen?) |
| 257 | (test-skip 1)) | 257 | (test-skip 1)) |
| 258 | (test-assert "'download' built-in builder, not found" | 258 | (test-assert "'download' built-in builder, not found" |
| 259 | (with-http-server 404 "not found" | 259 | (with-http-server 404 "not found" |
| @@ -279,7 +279,7 @@ | |||
| 279 | (build-derivations %store (list drv)) | 279 | (build-derivations %store (list drv)) |
| 280 | #f))) | 280 | #f))) |
| 281 | 281 | ||
| 282 | (unless (force %http-server-socket) | 282 | (unless (http-server-can-listen?) |
| 283 | (test-skip 1)) | 283 | (test-skip 1)) |
| 284 | (test-assert "'download' built-in builder, check mode" | 284 | (test-assert "'download' built-in builder, check mode" |
| 285 | ;; Make sure rebuilding the 'builtin:download' derivation in check mode | 285 | ;; Make sure rebuilding the 'builtin:download' derivation in check mode |
