68/74: gnu: go-netlink: Enable tests.

[guix-commits]

sharlatan pushed a commit to branch go-team
in repository guix.

commit a80cec86d54d0b4f0d33fdcf018d7e0e51faa853
Author: Sharlatan Hellseher <sharlatanus@gmail.com>
AuthorDate: Thu Jul 25 21:56:50 2024 +0100

    gnu: go-netlink: Enable tests.
    
    * gnu/packages/linux.scm (go-netlink): Enable most of the tests.
    [arguments]: <#:phases>: Add 'disable-failing-tests phase.
    
    Change-Id: Ie4fafbc922e98a7eb474f91317995b6502a99108
---
 gnu/packages/linux.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 40c14745fa..542ed5945a 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -9305,8 +9305,16 @@ management tools in userspace.")
     (build-system go-build-system)
     (arguments
      (list
-      #:tests? #f      ; Tests depend on specific kernel modules.
-      #:import-path "github.com/vishvananda/netlink"))
+      #:import-path "github.com/vishvananda/netlink"
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'disable-failing-tests
+            (lambda* (#:key tests? unpack-path #:allow-other-keys)
+              (with-directory-excursion (string-append "src/" unpack-path)
+                (substitute* (find-files "." "\\_test.go$")
+                  ;; Disable tests requiring root access.
+                  (("TestNetNsIdByFd") "OffTestNetNsIdByFd")
+                  (("TestNetNsIdByPid") "OffTestNetNsIdByPid"))))))))
     (propagated-inputs
      (list go-golang-org-x-sys go-github-com-vishvananda-netns))
     (home-page "https://github.com/vishvananda/netlink";)