File: 0008-tests-derivations.scm-Disable-fixed-output-derivatio.patch

package info (click to toggle)
guix 1.4.0-9
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 161,500 kB
  • sloc: lisp: 861,023; cpp: 10,741; javascript: 9,632; sh: 8,913; makefile: 951; ansic: 558; python: 129; sql: 33; sed: 16
file content (33 lines) | stat: -rw-r--r-- 1,187 bytes parent folder | download | duplicates (2)
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
From a6f06c17077916e79cf828de3bc627db4b76160a Mon Sep 17 00:00:00 2001
From: Vagrant Cascadian <vagrant@debian.org>
Date: Fri, 6 Nov 2020 19:46:51 -0800
Subject: [PATCH 08/29] tests/derivations.scm: Disable fixed-output derivations
 tests when network is unavailable (???)

---
 tests/derivations.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/derivations.scm b/tests/derivations.scm
index 97a1fcf97e..915178d9fa 100644
--- a/tests/derivations.scm
+++ b/tests/derivations.scm
@@ -1116,6 +1116,7 @@
                 (s (stat (string-append p "/guile/guix/nix"))))
            (eq? (stat:type s) 'directory)))))
 
+(unless (network-reachable?) (test-skip 1))
 (test-assert "build-expression->derivation: same fixed-output path"
   (let* ((builder1   '(call-with-output-file %output
                         (lambda (p)
@@ -1137,6 +1138,7 @@
          (string=? (derivation->output-path input1)
                    (derivation->output-path input2)))))
 
+(unless (network-reachable?) (test-skip 1))
 (test-assert "build-expression->derivation with a fixed-output input"
   (let* ((builder1   '(call-with-output-file %output
                         (lambda (p)
-- 
2.30.2