janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit 9f2beb3a4e9e629e20c2b97e9d4a6c04437bb3a8
Author: Jan (janneke) Nieuwenhuizen <[email protected]>
AuthorDate: Thu Apr 16 13:43:00 2020 +0200

    gnu: tcl: Disable troublesome test on the Hurd.
    
    Socket tests hangs sometimes.
    
    * gnu/packages/tcl.scm (tcl)[arguments]: When compiling for the Hurd, 
disable
    `socket.test'.
---
 gnu/packages/tcl.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index f17e138..88532f7 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -3,7 +3,7 @@
 ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <[email protected]>
 ;;; Copyright © 2014 Eric Bavier <[email protected]>
 ;;; Copyright © 2016, 2018 Efraim Flashner <[email protected]>
-;;; Copyright © 2016 Jan Nieuwenhuizen <[email protected]>
+;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <[email protected]>
 ;;; Copyright © 2017 Kei Kebreau <[email protected]>
 ;;; Copyright © 2018 Tobias Geerinckx-Rice <[email protected]>
 ;;; Copyright © 2019 Julien Lepiller <[email protected]>
@@ -35,6 +35,7 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages image)
   #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages hurd)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages xml)
@@ -56,6 +57,12 @@
     (build-system gnu-build-system)
     (arguments
      `(#:phases (modify-phases %standard-phases
+                  ,@(if (hurd-target?)
+                        '((add-after 'unpack 'disable-troublesome-tests
+                           (lambda _
+                             (rename-file "tests/socket.test" "socket.test")
+                             #t)))
+                        '())
                   (add-before 'configure 'pre-configure
                     (lambda _ (chdir "unix") #t))
                  (add-after 'install 'install-private-headers

Reply via email to