Subject: [PATCH] gnu: restic: Fix tests.

From: Oleg Pykhalov <[email-masked]>
Date: Wed, 8 Aug 2018 08:29:06 +0300

* gnu/packages/backup.scm (restic)[arguments]: Replace 'check' phase.
---
 gnu/packages/backup.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index 0733d9c34..bca070d3f 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -850,6 +850,9 @@ is like a time machine for your data. ")
     (build-system go-build-system)
     (arguments
      `(#:import-path "github.com/restic/restic"
+       #:modules ((srfi srfi-26)
+                  (guix build go-build-system)
+                  (guix build utils))
        #:unpack-path "github.com/restic"
       ;; We don't need to install the source code for end-user applications.
        #:install-source? #f
@@ -862,6 +865,18 @@ is like a time machine for your data. ")
                                         ,version)
                (invoke "go" "run" "build.go"))))
 
+         (replace 'check
+           (lambda _
+             (with-directory-excursion (string-append
+                                        "src/github.com/restic/restic-"
+                                        ,version)
+               (for-each (cut delete-file <>)
+                         '(;; Requires a network.
+                           "internal/backend/rest/rest_int_test.go"
+                           ;; unexpected error: fusermount: exit status 1
+                           "cmd/restic/integration_fuse_test.go"))
+               (invoke "go" "run" "build.go" "--test"))))
+
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out"))
-- 
2.18.0