guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: gnu: john-the-ripper-jumbo: Enable tests.


From: guix-commits
Subject: 02/02: gnu: john-the-ripper-jumbo: Enable tests.
Date: Thu, 7 Nov 2019 09:37:11 -0500 (EST)

bavier pushed a commit to branch master
in repository guix.

commit 4090dcb2b22bf1635e673072dab5bf0a37a5be5e
Author: Eric Bavier <address@hidden>
Date:   Sun Oct 27 22:24:57 2019 -0500

    gnu: john-the-ripper-jumbo: Enable tests.
    
    * gnu/packages/password-utils.scm (john-the-ripper-jumbo)[arguments]: Remove
    '#:tests? #f'.  Add 'check' phase after 'install'.
---
 gnu/packages/password-utils.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm
index 955a1a4..bfd3c25 100644
--- a/gnu/packages/password-utils.scm
+++ b/gnu/packages/password-utils.scm
@@ -775,7 +775,6 @@ between hosts and entries in the password store.")
                          (string-prefix? "i686" system)) "sse2")
                     ((string-prefix? "aarch" system) "neon")
                     (else "no")))))
-         #:tests? #f ;tests try to create '.john' in the build user's $HOME
          #:phases
          (modify-phases %standard-phases
            (add-before 'configure 'chdir-src
@@ -821,7 +820,13 @@ between hosts and entries in the password store.")
                                      (find-files "." ".*\\.conf")))
                    (copy-recursively "rules" (string-append datadir "/rules")))
                  (copy-recursively "../doc" docdir)
-                 #t))))))
+                 #t)))
+           (delete 'check) ; Tests need installed .conf files; move after 
install
+           (add-after 'install 'check
+             (lambda args
+               (setenv "HOME" "/tmp")   ; Some tests need to write to ~/.john
+               (setenv "OMP_NUM_THREADS" (number->string (parallel-job-count)))
+               (apply (assoc-ref %standard-phases 'check) args))))))
       (home-page "http://www.openwall.com/john/";)
       (synopsis "Password cracker")
       (description "John the Ripper is a fast password cracker.  Its primary



reply via email to

[Prev in Thread] Current Thread [Next in Thread]