This is an automated email from the git hooks/post-receive script.

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

The following commit(s) were added to refs/heads/wip-hurd by this push:
     new c787aece94 gnu: tcl: Remove failing tests for the Hurd..
c787aece94 is described below

commit c787aece9484e04cc0cf7938ee32a7047142ab4a
Author: Janneke Nieuwenhuizen <jann...@gnu.org>
AuthorDate: Tue Jun 6 22:28:56 2023 +0200

    gnu: tcl: Remove failing tests for the Hurd..
    
    * gnu/packages/tcl.scm (tcl)[arguments]: When building for 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..fdb37df437 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -3,7 +3,7 @@
 ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <m...@netris.org>
 ;;; Copyright © 2014 Eric Bavier <bav...@member.fsf.org>
 ;;; Copyright © 2016, 2018 Efraim Flashner <efr...@flashner.co.il>
-;;; Copyright © 2016 Jan Nieuwenhuizen <jann...@gnu.org>
+;;; Copyright © 2016, 2023 Janneke Nieuwenhuizen <jann...@gnu.org>
 ;;; Copyright © 2017 Kei Kebreau <kkebr...@posteo.net>
 ;;; Copyright © 2018, 2022 Tobias Geerinckx-Rice <m...@tobias.gr>
 ;;; Copyright © 2019 Julien Lepiller <jul...@lepiller.eu>
@@ -69,7 +69,13 @@
                        ;; Programs such as Ghostscript rely on it.
                        (with-directory-excursion bin
                          (symlink (car (find-files "." "tclsh"))
-                                  "tclsh"))))))
+                                  "tclsh")))))
+                 ,@(if (target-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

Reply via email to