From 075941c266336d3a1e2ba34664b5a9addcd8dfd4 Mon Sep 17 00:00:00 2001
From: Nicolas Graves <ngraves@ngraves.fr>
Date: Tue, 2 Sep 2025 23:54:15 +0200
Subject: [PATCH] gnu: mercurial: Fix, wrap and check hg binary.

* gnu/packages/version-control.scm (mercurial)[arguemnts]<#:phases>:
Add phase 'wrap and 'sanity-check.

Fixes: guix/guix#2451.
Change-Id: I71dc2d19ff8b5d2741cd2cb15b6a9687438e05b1
Reviewed-by: Simon Tournier <zimon.toutoune@gmail.com>
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
---
 gnu/packages/version-control.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 47fde9ec168eda73532bb1d2651361eb4446f05b..ab079ceeb4150bbe9b28f67bc0d4fb9691a3675e 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -2839,8 +2839,16 @@ execution of any hook written in any language before every commit.")
                    "\"GUIX_PYTHONPATH\"")))))
           (add-before 'configure-check 'add-install-to-pythonpath
             (assoc-ref py:%standard-phases 'add-install-to-pythonpath))
+          (add-after 'install 'wrap
+            (assoc-ref py:%standard-phases 'wrap))
           (delete 'check)
-          (add-after 'install 'check #$mercurial-check-phase))))
+          (add-after 'wrap 'check #$mercurial-check-phase)
+          (add-after 'check 'python-sanity-check
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              ((assoc-ref py:%standard-phases 'sanity-check)
+               #:inputs `(("sanity-check.py" . ,#$(default-sanity-check.py))
+                          ,@inputs)
+               #:outputs outputs))))))
     (native-inputs
      (list python-docutils
            ;; The following inputs are only needed to run the tests.