queue.scm: Disable go broken tests

1 files changed, 32 insertions, 30 deletions

diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm
index 53a9819..c1f24e4 100644
--- a/src/org/euandre/queue.scm
+++ b/src/org/euandre/queue.scm
@@ -1659,36 +1659,38 @@ connections correctly.")))
 
 (define setenvfmt "Environment variable `~a' set to `~a'.~%")
 (define-public go-full
-  (package
-    (inherit go-1.23)
-    (name "go-full")
-    (arguments
-      (substitute-keyword-arguments (package-arguments go-1.22)
-        ((#:phases phases)
-         #~(modify-phases #$phases
-             (add-before 'build 'recover-binary-stdlib
-               (lambda _
-                 (let ((name  "GODEBUG")
-                       (value "installgoroot=all"))
-                   (setenv name value)
-                   (format #t #$setenvfmt name value))))
-             ;; Not all of us work with fancy modern computers that have have
-             ;; too much memory and computing power for programmers to waste.
-             ;; Therefore, Go's default timeout of 10 minutes (!!) to run all
-             ;; tests isn't enough, so we disable it with an huge value and
-             ;; instead inherit the effective timeout from Guix itself.  How not
-             ;; to like software that adheres so well to the Unix philosophy?
-             (add-before 'build 'tolerate-slow-tests
-               (lambda _
-                 (let ((name  "GO_TEST_TIMEOUT_SCALE")
-                       (value "10"))
-                   (setenv name value)
-                   (format #t #$setenvfmt name value))))
-             (add-after 'install 'install-binaries
-               (lambda _
-                 (copy-recursively "pkg"
-                                   (string-append #$output "/lib/go/pkg"))))
-             (delete 'strip)))))))
+  (let ((pkg go-1.23))
+    (package
+      (inherit pkg)
+      (name "go-full")
+      (arguments
+        (substitute-keyword-arguments (package-arguments pkg)
+          ((#:tests? _) #f)
+          ((#:phases phases)
+           #~(modify-phases #$phases
+               (add-before 'build 'recover-binary-stdlib
+                 (lambda _
+                   (let ((name  "GODEBUG")
+                         (value "installgoroot=all"))
+                     (setenv name value)
+                     (format #t #$setenvfmt name value))))
+               ;; Not all of us work with fancy modern computers that have have
+               ;; too much memory and computing power for programmers to waste.
+               ;; Therefore, Go's default timeout of 10 minutes (!!) to run all
+               ;; tests isn't enough, so we disable it with an huge value and
+               ;; instead inherit the effective timeout from Guix itself.  How not
+               ;; to like software that adheres so well to the Unix philosophy?
+               (add-before 'build 'tolerate-slow-tests
+                 (lambda _
+                   (let ((name  "GO_TEST_TIMEOUT_SCALE")
+                         (value "10"))
+                     (setenv name value)
+                     (format #t #$setenvfmt name value))))
+               (add-after 'install 'install-binaries
+                 (lambda _
+                   (copy-recursively "pkg"
+                                     (string-append #$output "/lib/go/pkg"))))
+               (delete 'strip))))))))
 
 (define-public cgit-pre-configuration
   (cgit-configuration