Index: guix/tests/grafts.scm
===================================================================
--- guix.orig/tests/grafts.scm
+++ guix/tests/grafts.scm
@@ -275,6 +275,7 @@
                           (readlink (string-append out "/two")))
                 (file-exists? (string-append out "/one/replacement")))))))
 
+(unless (network-reachable?) (test-skip 1))
 (test-assert "graft-derivation, multiple outputs need to be replaced"
   ;; Build a reference graph like this:
   ;;
