From 7e0ad0dd0f2829d6f3776648ba7c88acf9888d7a Mon Sep 17 00:00:00 2001
From: Danny Milosavljevic <dannym@scratchpost.org>
Date: Fri, 25 Nov 2022 14:44:27 +0100
Subject: gnu: docker: Fix tests.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes <https://issues.guix.gnu.org/59551>.
Reported by Edison Ibáñez <arkhan@riseup.net>

* gnu/packages/linux.scm (xfsprogs-5.9): New variable.
* gnu/packages/docker.scm (docker)[inputs]: Replace xfsprogs by xfsprogs-5.9.
---
 gnu/packages/docker.scm |  2 +-
 gnu/packages/linux.scm  | 14 ++++++++++++++
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/docker.scm b/gnu/packages/docker.scm
index 184280b38f..7d109dc94c 100644
--- a/gnu/packages/docker.scm
+++ b/gnu/packages/docker.scm
@@ -580,7 +580,7 @@ (define-public docker
            util-linux
            lvm2
            tini
-           xfsprogs
+           xfsprogs-5.9
            xz))
     (native-inputs
      (list eudev ; TODO: Should be propagated by lvm2 (.pc -> .pc)
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 8727ddd76a..c032fb8c32 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -8550,6 +8550,20 @@ (define-public xfsprogs
     ;; licensed under lgpl2.1. the other stuff is licensed under gpl2.
     (license (list license:gpl2 license:lgpl2.1))))
 
+(define-public xfsprogs-5.9
+  (package
+    (inherit xfsprogs)
+    (name "xfsprogs")
+    (version "5.9.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://kernel.org/linux/utils/fs/xfs/xfsprogs/"
+                    "xfsprogs-" version ".tar.gz"))
+              (sha256
+               (base32
+                "13xkn9jpmwp4fm9r68vhgznkmxhnv83n2b39mhy2qdaph90w2a1l"))))))
+
 (define-public xfsprogs/static
   (package
     (inherit xfsprogs)
-- 
cgit v1.2.3