~ruther/guix-local: gnu: yggdrasil: Enable tests.

1129b6fe4ab6faf2ae89093d0c8c92f66de5696b — Sharlatan Hellseher 1 year, 11 months ago 86ee57e

gnu: yggdrasil: Enable tests.

* gnu/packages/networking.scm (yggdrasil): Enable tests.
[arguments]: <#:phases>: Use custom 'check phase.

Change-Id: Ia2a59803508063a97993eae647a66335f5db3d06

patch browse .tar.gz

1 files changed, 6 insertions(+), 3 deletions(-)

M gnu/packages/networking.scm

M gnu/packages/networking.scm => gnu/packages/networking.scm +6 -3

@@ 4635,8 4635,6 @@ QUIC protocol.")
     (build-system go-build-system)
     (arguments
      (list #:import-path "github.com/yggdrasil-network/yggdrasil-go"
-           ;; TODO: figure out how tests are run
-           #:tests? #f
            #:install-source? #f
            #:phases
            #~(modify-phases %standard-phases


@@ 4655,7 4653,12 @@ QUIC protocol.")
                          #:import-path directory))
                       (list "github.com/yggdrasil-network/yggdrasil-go/cmd/yggdrasil"
                             "github.com/yggdrasil-network/yggdrasil-go/cmd/yggdrasilctl"
-                            "github.com/yggdrasil-network/yggdrasil-go/cmd/genkeys"))))))))
+                            "github.com/yggdrasil-network/yggdrasil-go/cmd/genkeys")))))
+               (replace 'check
+                 (lambda* (#:key tests? import-path #:allow-other-keys)
+                   (when tests?
+                     (with-directory-excursion (string-append "src/" import-path)
+                       (invoke "go" "test" "-v" "./cmd/..." "./src/..."))))))))
     (propagated-inputs
      (list ;; go-golang-org-x-mobile ; Not packed yet, for contrib.
            ;; go-golang-zx2c4-com-wireguard-windows ; Not packed yet, for tun.