[PATCH 8/8] gnu: python-dulwich: Fix tests.

[Danny Milosavljevic]

* gnu/packages/python.scm (python-dulwich)[arguments]: New field.
---
 gnu/packages/python.scm | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index cd0a47043..232e033c7 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -12709,11 +12709,35 @@ Features:
         (sha256
           (base32 "0fl47vzfgc3w3rmhn8naii905cjqcp0vc68iyvymxp7567hh6als"))))
     (build-system python-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (replace 'check
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "dulwich/tests/compat/utils.py"
+               (("'git'") (string-append "'"
+                                         (assoc-ref inputs "git")
+                                         "/bin/git'")))
+             ;(substitute* "dulwich/hooks.py"
+             ;  (("f[.]write[(]args[[]0[]][)]") 
"f.write(args[0].encode('utf-8'))"))
+             (substitute* '("dulwich/tests/test_repository.py"
+                            "dulwich/tests/test_hooks.py")
+               (("#!/bin/sh") (string-append "#!" (which "sh"))))
+             (setenv "TEST_RUNNER" "unittest")
+             (setenv "PYTHONHASHSEED" "random")
+             (and
+               ;; Test without c extensions
+               ;; FIXME someone already called build_ext.
+               ;(zero? (system* "python" "-m" "unittest" 
"dulwich.tests.test_suite"))
+               ;; Test with c extensions
+               ;(zero? (system* "python" "setup.py" "build_ext" "-i"))
+               (zero? (system* "python" "-m" "unittest" 
"dulwich.tests.test_suite"))))))))
     (propagated-inputs
      `(("python-fastimport" ,python-fastimport)))
     (native-inputs
      `(("python-mock" ,python-mock)
-       ("python-geventhttpclient" ,python-geventhttpclient)))
+       ("python-geventhttpclient" ,python-geventhttpclient)
+       ("git" ,git)))
     (home-page "https://www.dulwich.io/";)
     (synopsis "Python git library")
     (description "This package provides a Git library for Python.")