me
/
guix
Archived
1
0
Fork 0
Code

gnu: mercurial: Run tests verbosely and respect settings. 

* gnu/packages/version-control.scm (mercurial)[arguments]:
Invoke ‘run-tests.py’ directly and verbosely.
Respect #:tests? and parallel-job-count.
master
Tobias Geerinckx-Rice 2020-01-15 20:58:46 +01:00
parent 4a30c51eb8
commit e2e62bf55a
No known key found for this signature in database
GPG Key ID: D889B0F018C5493C
1 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/version-control.scm
View File

@ -1244,10 +1244,11 @@ control to Git repositories.")
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda _
(lambda* (#:key tests? #:allow-other-keys)
(with-directory-excursion "tests"
;; The following tests are known to fail.
(for-each (lambda (file)
(delete-file (string-append "tests/" file)))
(delete-file file))
'("test-extdiff.t"
"test-hghave.t"
"test-hgwebdir.t"
@ -1263,7 +1264,15 @@ control to Git repositories.")
"test-subrepo-deep-nested-change.t"
"test-subrepo-recursion.t"
"test-transplant.t"))
(invoke "make" "check"))))))
(when tests?
(invoke "./run-tests.py"
;; ‘make check’ does not respect ‘-j’.
(string-append "-j" (number->string
(parallel-job-count)))
;; The test suite takes a long time and produces little
;; output by default. Prevent timeouts due to silence.
"-v"))
#t))))))
;; The following inputs are only needed to run the tests.
(native-inputs
`(("python-nose" ,python-nose)