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
47
48
49
|
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(+)
diff --git a/tests/grafts.scm b/tests/grafts.scm
index 17896a1277..785f6e221d 100644
--- a/tests/grafts.scm
+++ b/tests/grafts.scm
@@ -212,6 +212,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
@@ -271,6 +272,7 @@
(readlink (string-append out "/two")))
(file-exists? (string-append out "/one/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.
@@ -308,6 +310,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")
@@ -384,6 +387,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:
--
2.30.2
|
