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
|
From e0850cb8be251e8cc942a0137ecbc08eb094aa58 Mon Sep 17 00:00:00 2001
From: Vagrant Cascadian <vagrant@debian.org>
Date: Fri, 6 Nov 2020 18:48:22 -0800
Subject: [PATCH 05/29] tests: Only run tests using bootstrap binaries when
network is available.
---
tests/graph.scm | 7 +++++++
1 file changed, 7 insertions(+)
Index: guix-debian/tests/graph.scm
===================================================================
--- guix-debian.orig/tests/graph.scm
+++ guix-debian/tests/graph.scm
@@ -185,6 +185,7 @@ edges."
".drv")))
implicit)))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "bag DAG" ;a big town in Iraq
(let-values (((backend nodes+edges) (make-recording-backend)))
(let ((p (dummy-package "p")))
@@ -204,6 +205,7 @@ edges."
(((labels packages) ...)
(map package-full-name (filter package? packages)))))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "bag DAG, including origins"
(let-values (((backend nodes+edges) (make-recording-backend)))
(let* ((m (lambda* (uri hash-type hash name #:key system)
@@ -268,6 +270,7 @@ edges."
(list dune-drv utop-drv))
edges)))))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "derivation DAG"
(let-values (((backend nodes+edges) (make-recording-backend)))
(run-with-store %store
@@ -301,6 +304,7 @@ edges."
(list (basename (derivation-file-name drv))
(basename txt))))))))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "reference DAG"
(let-values (((backend nodes+edges) (make-recording-backend)))
(run-with-store %store
@@ -377,6 +381,7 @@ edges."
(((labels packages _ ...) ...)
packages)))))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "node-transitive-edges + node-back-edges"
(run-with-store %store
(let ((packages (fold-packages cons '()))
@@ -409,6 +414,7 @@ edges."
(return (lset= eq? (node-transitive-edges (list p2) edges)
(list p1a p1b p0)))))))
+(unless (network-reachable?) (test-skip 1))
(test-assert "node-transitive-edges, references"
(run-with-store %store
(mlet* %store-monad ((d0 (package->derivation %bootstrap-guile))
@@ -481,6 +487,7 @@ edges."
%reverse-package-node-type)))
(return (map package-name path)))))
+(unless (network-reachable?) (test-skip 1))
(test-equal "shortest-path, references"
`(("d2" "d1" ,(package-full-name %bootstrap-guile "-"))
(,(package-full-name %bootstrap-guile "-") "d1" "d2"))
|
