01/04: gnu: guix-jupyter: Define 'HOME' prior to 'check' phase.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit b60f3941b95dc5351e2336cf694480d099a91233
Author: Ludovic Courtès <ludovic.courtes@inria.fr>
AuthorDate: Fri Jan 20 10:57:00 2023 +0100

    gnu: guix-jupyter: Define 'HOME' prior to 'check' phase.
    
    Fixes <https://issues.guix.gnu.org/57077>.
    Reported by Andreas Enge <andreas@enge.fr>.
    
    * gnu/packages/package-management.scm (guix-jupyter)[arguments]: Add
    'define-home' phase.
---
 gnu/packages/package-management.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/package-management.scm 
b/gnu/packages/package-management.scm
index d2934ea941..f7a47ece00 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -1666,8 +1666,16 @@ This package just includes the agent component.")))
                    "\",\n\t\t\""))
                  (("guix-jupyter-kernel.scm")
                   (string-append out "/share/guile/site/3.0/"
-                                 "guix-jupyter-kernel.scm")))
-               #t))))))
+                                 "guix-jupyter-kernel.scm"))))))
+         (add-before 'check 'define-home
+           (lambda _
+             ;; IPython goes awry when HOME points to a non-existent
+             ;; directory:
+             ;;
+             ;; IPython/paths.py:70: UserWarning: IPython parent 
'/homeless-shelter' is not a writable location, using a temp directory.
+             ;;
+             ;; This in turn leads to test failures, so define HOME.
+             (setenv "HOME" (getcwd)))))))
     (native-inputs
      (list autoconf
            automake