1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
From 27d0b93ec7b0e01937a9fbe4a9fc3154340ea41b Mon Sep 17 00:00:00 2001
From: Vagrant Cascadian <vagrant@debian.org>
Date: Tue, 10 Nov 2020 18:28:40 -0800
Subject: [PATCH 18/29] tests/grafts.scm: Disable tests that require bootstrap
binaries when network is unavailable.
---
tests/grafts.scm | 4 ++++
1 file changed, 4 insertions(+)
Index: guix/tests/grafts.scm
===================================================================
--- guix.orig/tests/grafts.scm
+++ guix/tests/grafts.scm
@@ -215,6 +215,7 @@
(and (string=? (readlink one) repl)
(string=? (readlink two) one))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "graft-derivation, replaced derivation has multiple outputs"
;; Here we have a replacement just for output "one" of P1 and not for the
;; other output. Make sure the graft for P1:one correctly applies to the
@@ -322,6 +323,7 @@
(equal? (stat (string-append out "/one/p0/replacement"))
(stat (string-append out "/two/link/p0/replacement"))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "graft-derivation with #:outputs"
;; Call 'graft-derivation' with a narrowed set of outputs passed as
;; #:outputs.
@@ -359,6 +361,7 @@
;; P2:aaa depends on P1:two, but not on P1:one, so nothing to graft.
(eq? p2g p2)))
+(unless (network-reachable?) (test-skip 1))
(test-equal "graft-derivation, unused outputs not depended on"
'("aaa")
@@ -435,6 +438,7 @@
(let ((out (derivation->output-path grafted)))
(file-is-directory? (string-append out "/" repl))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "graft-derivation, grafts are not shadowed"
;; We build a DAG as below, where dotted arrows represent replacements and
;; solid arrows represent dependencies:
|
