build/python: Add the installation bin directory to PATH.

This also to reduce the need for boilerplate code found in check phase
overrides.

* guix/build/python-build-system.scm (add-install-to-path): New phase.
(%standard-phases): Order it before the check phase.

1 files changed, 7 insertions, 0 deletions

diff --git a/guix/build/python-build-system.scm b/guix/build/python-build-system.scm
index 9f5fad7faf..c73f6b0603 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -179,6 +179,12 @@ running checks after installing the package."
   "A phase that just wraps the 'add-installed-pythonpath' procedure."
   (add-installed-pythonpath inputs outputs))
 
+(define* (add-install-to-path #:key outputs #:allow-other-keys)
+  "Adding Python scripts to PATH is also often useful in tests."
+  (setenv "PATH" (string-append (assoc-ref outputs "out")
+                                "/bin:"
+                                (getenv "PATH"))))
+
 (define* (install #:key inputs outputs (configure-flags '()) use-setuptools?
                   #:allow-other-keys)
   "Install a given Python package."
@@ -296,6 +302,7 @@ by Cython."
     (add-after 'install 'check check)
     (add-after 'install 'wrap wrap)
     (add-before 'check 'add-install-to-pythonpath add-install-to-pythonpath)
+    (add-before 'check 'add-install-to-path add-install-to-path)
     (add-before 'strip 'rename-pth-file rename-pth-file)))
 
 (define* (python-build #:key inputs (phases %standard-phases)