~ruther/guix-local: gnu: mercurial: Fix, wrap and check hg binary.

075941c266336d3a1e2ba34664b5a9addcd8dfd4 — Nicolas Graves 7 months ago 293e99b

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>

patch browse .tar.gz

1 files changed, 9 insertions(+), 1 deletions(-)

M gnu/packages/version-control.scm

M gnu/packages/version-control.scm => gnu/packages/version-control.scm +9 -1

@@ 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.