diff options
| -rw-r--r-- | doc/guix.texi | 6 | ||||
| -rw-r--r-- | guix/build-system/go.scm | 4 | ||||
| -rw-r--r-- | guix/build/go-build-system.scm | 5 |
3 files changed, 12 insertions, 3 deletions
diff --git a/doc/guix.texi b/doc/guix.texi index 151fcd89ac..789e153189 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -9582,6 +9582,12 @@ in their documentation}. The key @code{#:go} can be used to specify the Go compiler package with which to build the package. +The phase @code{check} provides a wrapper for @code{go test} which +builds a test binary (or multiple binaries), vets the code and then runs +the test binary. Build, test and test binary flags can be provided as +@code{#:test-flags} parameter, default is @code{'()}. See @code{go help +test} and @code{go help testflag} for more details. + @end defvar @defvar glib-or-gtk-build-system diff --git a/guix/build-system/go.scm b/guix/build-system/go.scm index 226688f2d2..f4231df4ec 100644 --- a/guix/build-system/go.scm +++ b/guix/build-system/go.scm @@ -192,6 +192,7 @@ commit hash and its date rather than a proper release tag." (unpack-path "") (build-flags ''()) (tests? #t) + (test-flags ''()) (parallel-build? #t) (parallel-tests? #t) (allow-go-reference? #f) @@ -224,6 +225,7 @@ commit hash and its date rather than a proper release tag." #:unpack-path #$unpack-path #:build-flags #$build-flags #:tests? #$tests? + #:test-flags #$test-flags #:parallel-build? #$parallel-build? #:parallel-tests? #$parallel-tests? #:allow-go-reference? #$allow-go-reference? @@ -248,6 +250,7 @@ commit hash and its date rather than a proper release tag." (unpack-path "") (build-flags ''()) (tests? #f) ; nothing can be done + (test-flags ''()) (allow-go-reference? #f) (system (%current-system)) (goarch (first (go-target target))) @@ -297,6 +300,7 @@ commit hash and its date rather than a proper release tag." #:unpack-path #$unpack-path #:build-flags #$build-flags #:tests? #$tests? + #:test-flags #$test-flags #:make-dynamic-linker-cache? #f ;cross-compiling #:allow-go-reference? #$allow-go-reference? #:inputs %build-inputs)))) diff --git a/guix/build/go-build-system.scm b/guix/build/go-build-system.scm index 8aa8a17495..3f0f5700a1 100644 --- a/guix/build/go-build-system.scm +++ b/guix/build/go-build-system.scm @@ -278,14 +278,13 @@ unpacking." "Here are the results of `go env`:\n")) (invoke "go" "env")))) -;; Can this also install commands??? -(define* (check #:key tests? import-path (parallel-tests? #t) +(define* (check #:key tests? import-path test-flags (parallel-tests? #t) #:allow-other-keys) "Run the tests for the package named by IMPORT-PATH." (when tests? (let* ((njobs (if parallel-tests? (parallel-job-count) 1))) (setenv "GOMAXPROCS" (number->string njobs))) - (invoke "go" "test" import-path)) + (apply invoke "go" "test" `(,import-path ,@test-flags))) #t) (define* (install #:key install-source? outputs import-path unpack-path #:allow-other-keys) |