diff options
| author | EuAndreh <eu@euandre.org> | 2025-01-18 11:52:38 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2025-01-18 11:52:38 -0300 |
| commit | f41d976a7bc40944e2a36cbebb499c4673393cd7 (patch) | |
| tree | b1dfec5a5671eda3d4fcbe3e792deeb14abc16a5 /src | |
| parent | packages.scm: Update gobang and untls versions (diff) | |
| download | packages-f41d976a7bc40944e2a36cbebb499c4673393cd7.tar.gz packages-f41d976a7bc40944e2a36cbebb499c4673393cd7.tar.xz | |
queue.scm: Disable go broken tests
Diffstat (limited to 'src')
| -rw-r--r-- | src/org/euandre/queue.scm | 62 |
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 |