diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-12-13 22:06:45 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-12-13 22:06:45 +0100 |
| commit | ad1ebab379dbd68e006197e8609c67de4734dbde (patch) | |
| tree | 5e3caea6b72967fdfe4b1d823b28717c6f5a0719 /tests/union.scm | |
| parent | 5fb868033fd8620eb6339df33fac00df21027790 (diff) | |
| download | guix-ad1ebab379dbd68e006197e8609c67de4734dbde.tar.gz | |
tests: Skip network-dependent tests when the network is unreachable.
* tests/builders.scm (network-reachable?): New variable.
("url-fetch", "gnu-build"): Skip unless NETWORK-REACHABLE?.
* tests/derivations.scm (%coreutils): Check for network access.
("build-expression->derivation with one input"): Skip when %COREUTILS
is #f.
* tests/guix-package.sh: Skip installation of GNU Make when the network
is unreachable.
* tests/packages.scm ("GNU Make, bootstrap"): Likewise.
* tests/union.scm ("union-build"): Likewise.
Diffstat (limited to 'tests/union.scm')
| -rw-r--r-- | tests/union.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/union.scm b/tests/union.scm index 73b95c49b8..c839855ef4 100644 --- a/tests/union.scm +++ b/tests/union.scm @@ -64,7 +64,11 @@ (bin make) (share (doc (make README)))))) -(test-skip (if %store 0 1)) +(test-skip (if (and %store + (false-if-exception + (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV))) + 0 + 1)) (test-assert "union-build" (let* ((inputs (map (match-lambda |