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
|
From 481c0ee8285fdbc8c858ea913ccb8e06b30d29e7 Mon Sep 17 00:00:00 2001
From: Vagrant Cascadian <vagrant@debian.org>
Date: Tue, 10 Nov 2020 15:10:31 -0800
Subject: [PATCH 10/29] tests/challenge.scm: Disable tests that may require
network for bootstrap binaries.
---
tests/challenge.scm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/tests/challenge.scm b/tests/challenge.scm
index 70d92be097..404f4e5555 100644
--- a/tests/challenge.scm
+++ b/tests/challenge.scm
@@ -60,6 +60,7 @@
(test-begin "challenge")
+(unless (network-reachable?) (test-skip 1))
(test-assertm "no discrepancies"
(let ((text (random-text)))
(mlet* %store-monad ((drv (gexp->derivation "something"
@@ -82,6 +83,7 @@
hash)
(comparison-report-match? report))))))))))))
+(unless (network-reachable?) (test-skip 1))
(test-assertm "one discrepancy"
(let ((text (random-text)))
(mlet* %store-monad ((drv (gexp->derivation "something"
@@ -115,6 +117,7 @@
(narinfo-hash->sha256
(narinfo-hash bad))))))))))))))))
+(unless (network-reachable?) (test-skip 1))
(test-assertm "inconclusive: no substitutes"
(mlet* %store-monad ((drv (gexp->derivation "foo" #~(mkdir #$output)))
(out -> (derivation->output-path drv))
--
2.30.2
|
