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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
From 6840dffd6392d4a2282fac9752a84c145fc89806 Mon Sep 17 00:00:00 2001
From: Vagrant Cascadian <vagrant@debian.org>
Date: Tue, 10 Nov 2020 18:36:22 -0800
Subject: [PATCH 20/29] tests/packages.scm: Disable tests using bootstrap
binaries when network is unavailable.
---
tests/packages.scm | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/tests/packages.scm b/tests/packages.scm
index 2a290bc353..017242118d 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -683,6 +683,7 @@
(derivation-error-derivation c)))))
(package-derivation %store p)))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "trivial"
(let* ((p (package (inherit (dummy-package "trivial"))
(build-system trivial-build-system)
@@ -702,6 +703,7 @@
(equal? '(hello guix)
(call-with-input-file (string-append p "/test") read))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "trivial with local file as input"
(let* ((i (search-path %load-path "ice-9/boot-9.scm"))
(p (package (inherit (dummy-package "trivial-with-input-file"))
@@ -720,6 +722,7 @@
(equal? (call-with-input-file p get-bytevector-all)
(call-with-input-file i get-bytevector-all))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "trivial with source"
(let* ((i (search-path %load-path "ice-9/boot-9.scm"))
(p (package (inherit (dummy-package "trivial-with-source"))
@@ -737,6 +740,7 @@
(equal? (call-with-input-file p get-bytevector-all)
(call-with-input-file i get-bytevector-all))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "trivial with system-dependent input"
(let* ((p (package (inherit (dummy-package "trivial-system-dependent-input"))
(build-system trivial-build-system)
@@ -977,6 +981,7 @@
(replacement (package-derivation %store p0*))
(replacement-output "lib"))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "replacement also grafted"
;; We build a DAG as below, where dotted arrows represent replacements and
;; solid arrows represent dependencies:
@@ -1601,6 +1606,7 @@
(mock ((gnu packages) cache-is-authoritative? (const #t))
(find-packages-by-name "guile" "2"))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "--search-paths with pattern"
;; Make sure 'guix package --search-paths' correctly reports environment
;; variables when file patterns are used (in particular, it must follow
@@ -1652,6 +1658,7 @@
(guix-package "-p" (derivation->output-path prof)
"--search-paths"))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "--search-paths with single-item search path"
;; Make sure 'guix package --search-paths' correctly reports environment
;; variables for things like 'GIT_SSL_CAINFO' that have #f as their
--
2.30.2
|
