diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-02-26 22:37:12 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-02-26 22:37:12 +0100 |
| commit | 93be4e8e6c6b82a5825b56cce991563bf19aaaf2 (patch) | |
| tree | 2b48c1c88f046ee6e1d59636d1f6e8fbbd1660c2 /tests/packages.scm | |
| parent | a068dba78bde9c83a69c755df1131c286d065850 (diff) | |
| parent | e1509174957bd9eba777bec86ea290fb44a4bce3 (diff) | |
| download | gnu-guix-93be4e8e6c6b82a5825b56cce991563bf19aaaf2.tar gnu-guix-93be4e8e6c6b82a5825b56cce991563bf19aaaf2.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'tests/packages.scm')
| -rw-r--r-- | tests/packages.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 851520b343..d6371b3b49 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -176,8 +176,7 @@ (and (direct-store-path? source) (string-suffix? "utils.scm" source)))) -(unless (false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)) - (test-skip 1)) +(unless (network-reachable?) (test-skip 1)) (test-equal "package-source-derivation, snippet" "OK" (let* ((file (search-bootstrap-binary "guile-2.0.9.tar.xz" @@ -532,7 +531,7 @@ (%current-target-system "foo64-linux-gnu")) (equal? drv (bag->derivation %store bag)))))) -(unless (false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)) +(when (or (not (network-reachable?)) (shebang-too-long?)) (test-skip 1)) (test-assert "GNU Make, bootstrap" ;; GNU Make is the first program built during bootstrap; we choose it |