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
50
51
52
53
54
55
56
57
|
From 6243ffa3e5205c379a474b4416d1a69c46d2c5a4 Mon Sep 17 00:00:00 2001
From: Vagrant Cascadian <vagrant@debian.org>
Date: Tue, 10 Nov 2020 15:24:19 -0800
Subject: [PATCH 12/29] tests/store.scm: Disable tests requiring bootstrap
binaries when network in unavailable.
---
tests/store.scm | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/tests/store.scm b/tests/store.scm
index 9c25adf5e9..c0011475e2 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -825,6 +825,7 @@
(build-derivations s (list d))
#f))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "substitute, corrupt output hash, build trace"
;; Likewise, and check the build trace.
(with-store s
@@ -880,6 +881,7 @@
(and (string-contains output mismatch)
(string-contains output failure))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "substitute --fallback"
(with-store s
(let* ((t (random-text)) ; contents of the output
@@ -987,6 +989,7 @@
(equal? (list file0) (references %store file1))
(equal? (list file1) (references %store file2))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "write-file & export-path yield the same result"
;; Here we compare 'write-file' and the daemon's own implementation.
;; 'write-file' is the reference because we know it sorts file
@@ -1201,6 +1204,7 @@
;; Delete the corrupt item to leave the store in a clean state.
(delete-paths s (list file)))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "build-things, check mode"
(with-store store
(call-with-temporary-output-file
@@ -1238,6 +1242,7 @@
(build-mode check))
#f))))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "build-succeeded trace in check mode"
(string-contains
(call-with-output-string
--
2.30.2
|
