From 2379ec2327d511b72151c94c444b79333c3ec7f5 Mon Sep 17 00:00:00 2001
From: Liliana Marie Prikler <liliana.prikler@gmail.com>
Date: Thu, 9 Jan 2025 22:38:04 +0100
Subject: [PATCH] gnu: uhttpmock: Update to 0.11.0.

* gnu/packages/web.scm (uhttpmock): Update to 0.11.0.
[build-system]: Use meson-build-system.
[inputs]: Replace libsoup-minimal-2 with libsoup.  Drop labels.
[arguments]: Add #:glib-or-gtk? and #:configure-flags.
(uhttpmock-with-libsoup2): New variable.
* gnu/packages/gnome.scm (libgdata)[native-inputs]: Use
uhttpmock-with-libsoup2 instead of uhttpmock.
---
 gnu/packages/gnome.scm |  2 +-
 gnu/packages/web.scm   | 33 +++++++++++++++++++++++++++------
 2 files changed, 28 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 771206cef72..0f2bb8afbc3 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -2092,7 +2092,7 @@ formats like PNG, SVG, PDF and EPS.")
        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
        ("intltool" ,intltool)
        ("pkg-config" ,pkg-config)
-       ("uhttpmock" ,uhttpmock)))
+       ("uhttpmock" ,uhttpmock-with-libsoup2)))
     (inputs
      (list cyrus-sasl glib-networking vala))
     (propagated-inputs
diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index bd9dc0a5b88..74b9e136845 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -5755,23 +5755,24 @@ fast and flexible way of exploring HTML from the terminal.")
 (define-public uhttpmock
   (package
     (name "uhttpmock")
-    (version "0.5.3")
+    (version "0.11.0")
     (source
      (origin
        (method url-fetch)
        (uri (string-append "https://tecnocode.co.uk/downloads/uhttpmock/"
                            "uhttpmock-" version ".tar.xz"))
        (sha256
-        (base32 "0bqizz69hxk8rn4z57asz1d45vizl1rj6i5k3rzxn2x3qcik514h"))))
-    (build-system glib-or-gtk-build-system)
+        (base32 "1gw4g3m99j00rjd3flbxigv3qgbkafnkhf77c76hv7yy58dc1vgy"))))
+    (build-system meson-build-system)
     (native-inputs
      (list gobject-introspection
            ;; For check phase.
            glib-networking gsettings-desktop-schemas pkg-config))
-    (inputs
-     `(("libsoup" ,libsoup-minimal-2)))
+    (inputs (list libsoup))
     (arguments
-     `(#:phases
+     `(#:glib-or-gtk? #t
+       #:configure-flags '("-Dgtk_doc=false")
+       #:phases
        (modify-phases %standard-phases
          (add-before 'check 'set-home-for-tests
            (lambda _
@@ -5784,6 +5785,26 @@ HTTPS.  It provides a library, libuhttpmock, which implements recording and
 playback of HTTP request/response traces.")
     (license license:lgpl2.1+)))
 
+(define-public uhttpmock-with-libsoup2
+  (package
+    (inherit uhttpmock)
+    (version "0.5.3")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://tecnocode.co.uk/downloads/uhttpmock/"
+                           "uhttpmock-" version ".tar.xz"))
+       (sha256
+        (base32 "0bqizz69hxk8rn4z57asz1d45vizl1rj6i5k3rzxn2x3qcik514h"))))
+    (build-system glib-or-gtk-build-system)
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-before 'check 'set-home-for-tests
+                 (lambda _
+                   (setenv "HOME" "/tmp"))))))
+    (inputs (list libsoup-minimal-2))))
+
 (define-public woof
   (package
     (name "woof")