Subject: [bug#64711] [PATCH 18/43] gnu: tcl: Remove failing tests on the Hurd..

From: Janneke Nieuwenhuizen <[email-masked]>
Date: Tue, 18 Jul 2023 16:40:11 +0200

* gnu/packages/tcl.scm (tcl)[arguments]: When building natively on the Hurd,
add phase 'delete-tests'.
---
 gnu/packages/tcl.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index 2a5fbc6fe8..b69dba2254 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -3,7 +3,7 @@
 ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <[email-masked]>
 ;;; Copyright © 2014 Eric Bavier <[email-masked]>
 ;;; Copyright © 2016, 2018 Efraim Flashner <[email-masked]>
-;;; Copyright © 2016 Jan Nieuwenhuizen <[email-masked]>
+;;; Copyright © 2016, 2023 Janneke Nieuwenhuizen <[email-masked]>
 ;;; Copyright © 2017 Kei Kebreau <[email-masked]>
 ;;; Copyright © 2018, 2022 Tobias Geerinckx-Rice <[email-masked]>
 ;;; Copyright © 2019 Julien Lepiller <[email-masked]>
@@ -69,7 +69,13 @@ (define-public tcl
                        ;; Programs such as Ghostscript rely on it.
                        (with-directory-excursion bin
                          (symlink (car (find-files "." "tclsh"))
-                                  "tclsh"))))))
+                                  "tclsh")))))
+                 ,@(if (system-hurd?)
+                       '((add-after 'unpack 'delete-tests
+                           (lambda _
+                             (delete-file "tests/chanio.test")
+                             (delete-file "tests/socket.test"))))
+                       '()))
 
        ;; By default, man pages are put in PREFIX/man, but we want them in
        ;; PREFIX/share/man.  The 'validate-documentation-location' phase is
-- 
2.40.1