14/18: gnu: go-golang-org-x-sys: Enable tests.

[guix-commits]

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

commit aa85e0a1c1481b9e5e9bf273b80a09c8e9738258
Author: Sharlatan Hellseher <sharlatanus@gmail.com>
AuthorDate: Thu Jun 20 10:07:20 2024 +0100

    gnu: go-golang-org-x-sys: Enable tests.
    
    * gnu/packages/golang-build.scm (go-golang-org-x-sys) [arguments]:
    <#:tests>: Enable them.
    <#:phases>: Add custom 'check phase.
    
    Change-Id: Ie58ea6f0aa677742307d18cfaafcf6ec381c85c9
---
 gnu/packages/golang-build.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/golang-build.scm b/gnu/packages/golang-build.scm
index 761e7e9d08..121a4ca49a 100644
--- a/gnu/packages/golang-build.scm
+++ b/gnu/packages/golang-build.scm
@@ -325,12 +325,16 @@ cancelation for groups of goroutines working on subtasks 
of a common task
       (arguments
        (list
         #:import-path "golang.org/x/sys"
-        ;; Source-only package
-        #:tests? #f
         #:phases
         #~(modify-phases %standard-phases
-            ;; Source-only package
-            (delete 'build))))
+            ;; XXX: Workaround for go-build-system's lack of Go modules
+            ;; support.
+            (delete 'build)
+            (replace 'check
+              (lambda* (#:key tests? import-path #:allow-other-keys)
+                (when tests?
+                  (with-directory-excursion (string-append "src/" import-path)
+                    (invoke "go" "test" "-v" "./..."))))))))
       (home-page "https://go.googlesource.com/sys";)
       (synopsis "Go support for low-level system interaction")
       (description "This package provides supplemental libraries offering Go