3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

gnu: dlib: Disable failing tests.

* gnu/packages/machine-learning.scm (dlib)[arguments]: Add phase
'disable-failing-tests' for tests that are known not to work in the current
release.
[inputs]: Add lapack.

Signed-off-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
Marius Bakke 2016-09-09 01:51:23 +01:00 committed by Leo Famulari
parent 8eaf53e366
commit 4fba38db9c
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08

View file

@ -499,6 +499,29 @@ single hidden layer, and for multinomial log-linear models.")
(substitute* "dlib/config.h"
(("^//#define DLIB_DISABLE_ASSERTS") "#define DLIB_DISABLE_ASSERTS"))
#t))
(add-after 'disable-asserts 'disable-failing-tests
(lambda _
;; One test times out on MIPS, so we need to disable it.
;; The rest is known to fail on non-x86_64 platforms in the current release.
;; Some have been fixed in git; this list should be readjusted next update.
(let* ((system ,(or (%current-target-system)
(%current-system)))
(disabled-tests (cond
((string-prefix? "mips64" system)
'("object_detector" ; timeout
"data_io"))
((string-prefix? "armhf" system)
'("learning_to_track" "max_cost_assignment"))
((string-prefix? "i686" system)
'("optimization" "matrix2" "mpc"))
(else '()))))
;; The following test fails due a bug in openblas < 0.2.18.
(append! disabled-tests '("empirical_map"))
(for-each
(lambda (test)
(substitute* "dlib/test/makefile"
(((string-append "SRC \\+= " test "\\.cpp")) "")) #t)
disabled-tests))))
(replace 'check
(lambda _
;; No test target, so we build and run the unit tests here.
@ -514,7 +537,7 @@ single hidden layer, and for multinomial log-linear models.")
`(("pkg-config" ,pkg-config)))
(inputs
`(("giflib" ,giflib)
;("lapack" ,lapack) XXX lapack here causes test failures in some setups.
("lapack" ,lapack)
("libjpeg" ,libjpeg)
("libpng" ,libpng)
("libx11" ,libx11)