diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-12-13 22:14:25 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-12-13 22:14:25 +0100 |
| commit | 1e9824513c570370638b1bfe33bf1dba1f12be4a (patch) | |
| tree | cb7bd7f0bebd42dbeabf2c8f09ae1d5144ac969b /tests/builders.scm | |
| parent | 70915c1a2ef72e7350b2a29d1d93e30643bce6f3 (diff) | |
| parent | b35c0f866c83288e64dcf5839d908705d416c317 (diff) | |
| download | guix-patches-1e9824513c570370638b1bfe33bf1dba1f12be4a.tar guix-patches-1e9824513c570370638b1bfe33bf1dba1f12be4a.tar.gz | |
Merge branch 'nix-integration'
Conflicts:
tests/guix-package.sh
Diffstat (limited to 'tests/builders.scm')
| -rw-r--r-- | tests/builders.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/builders.scm b/tests/builders.scm index 12841d5690..6035032d5d 100644 --- a/tests/builders.scm +++ b/tests/builders.scm @@ -50,9 +50,13 @@ (list name (package-derivation %store package)))) (@@ (distro packages base) %boot0-inputs)))) +(define network-reachable? + (false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV))) + (test-begin "builders") +(unless network-reachable? (test-skip 1)) (test-assert "url-fetch" (let* ((url '("http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz" "ftp://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")) @@ -69,6 +73,7 @@ (and (build-system? gnu-build-system) (eq? gnu-build (build-system-builder gnu-build-system)))) +(unless network-reachable? (test-skip 1)) (test-assert "gnu-build" (let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz") (hash (nix-base32-string->bytevector |