86/401: gnu: Add go-gopkg-in-dnaeon-go-vcr-v4.

[guix-commits]

sharlatan pushed a commit to branch go-team
in repository guix.

commit d0e2ca0327c4d1af502ec4b6317aff5337be9284
Author: Sharlatan Hellseher <sharlatanus@gmail.com>
AuthorDate: Fri Dec 6 00:13:26 2024 +0000

    gnu: Add go-gopkg-in-dnaeon-go-vcr-v4.
    
    * gnu/packages/golang-check.scm (go-gopkg-in-dnaeon-go-vcr-v4): New 
variable.
    
    Change-Id: I63a48e9e5c60f22f756d885bdd3ec247f6565394
---
 gnu/packages/golang-check.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/golang-check.scm b/gnu/packages/golang-check.scm
index 9ac11dde19..2bc8303b72 100644
--- a/gnu/packages/golang-check.scm
+++ b/gnu/packages/golang-check.scm
@@ -1385,6 +1385,34 @@ and replaying them in future runs in order to provide 
fast, deterministic and
 accurate testing of your code.")
     (license license:bsd-2)))
 
+(define-public go-gopkg-in-dnaeon-go-vcr-v4
+  (package
+    (inherit go-gopkg-in-dnaeon-go-vcr-v3)
+    (name "go-gopkg-in-dnaeon-go-vcr-v4")
+    (version "4.0.2")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gopkg.in/dnaeon/go-vcr.v4";)
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1p1a4hbk303k2bv9dmaf770dml71zr3260g5z7yd84vzhj8i0rzb"))))
+    (arguments
+     (list
+      #:import-path "gopkg.in/dnaeon/go-vcr.v4"
+      #:phases
+      #~(modify-phases %standard-phases
+          ;; XXX: Workaround for go-build-system's lack of Go modules
+          ;; support.
+          (delete 'build)
+          (replace 'check
+            (lambda* (#:key tests? import-path #:allow-other-keys)
+              (when tests?
+                (with-directory-excursion (string-append "src/" import-path)
+                  (invoke "go" "test" "-v" "./..."))))))))))
+
 (define-public go-gopkg-in-go-playground-assert-v1
   (package
     (name "go-gopkg-in-go-playground-assert-v1")