me
/
guix
Archived
1
0
Fork 0

gnu: gsl: Demote conditional phase logic.

* gnu/packages/maths.scm (gsl)[arguments]: Move 'cond' within
'modify-phases'.
master
Ludovic Courtès 2020-11-24 14:06:28 +01:00
parent cf495c934e
commit 4f6fbe7555
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 31 additions and 29 deletions

View File

@ -476,35 +476,37 @@ precision floating point numbers.")
(build-system gnu-build-system)
(arguments
(let ((system (%current-system)))
(cond
((or (string-prefix? "aarch64" system)
(string-prefix? "powerpc" system))
;; Some sparse matrix tests are failing on AArch64 and PowerPC:
;; https://lists.gnu.org/archive/html/bug-gsl/2020-04/msg00001.html
'(#:phases (modify-phases %standard-phases
(add-before 'check 'disable-failing-tests
(lambda _
(substitute* "spmatrix/test.c"
((".*test_complex.*") "\n"))
#t)))))
((string-prefix? "i686" system)
;; There are rounding issues with these tests on i686:
;; https://lists.gnu.org/archive/html/bug-gsl/2016-10/msg00000.html
;; https://lists.gnu.org/archive/html/bug-gsl/2020-04/msg00000.html
'(#:phases (modify-phases %standard-phases
(add-before 'check 'disable-failing-tests
(lambda _
(substitute* "linalg/test.c"
((".*gsl_test\\(test_LU_decomp.*") "\n")
((".*gsl_test\\(test_LUc_decomp.*") "\n")
((".*gsl_test\\(test_cholesky_decomp.*") "\n")
((".*gsl_test\\(test_COD_lssolve2.*") "\n"))
(substitute* "spmatrix/test.c"
((".*test_all.*") "\n")
((".*test_float.*") "\n")
((".*test_complex.*") "\n"))
#t)))))
(else '()))))
`(#:phases
(modify-phases %standard-phases
,@(cond
((or (string-prefix? "aarch64" system)
(string-prefix? "powerpc" system))
;; Some sparse matrix tests are failing on AArch64 and PowerPC:
;; https://lists.gnu.org/archive/html/bug-gsl/2020-04/msg00001.html
'((add-before 'check 'disable-failing-tests
(lambda _
(substitute* "spmatrix/test.c"
((".*test_complex.*") "\n"))
#t))))
((string-prefix? "i686" system)
;; There are rounding issues with these tests on i686:
;; https://lists.gnu.org/archive/html/bug-gsl/2016-10/msg00000.html
;; https://lists.gnu.org/archive/html/bug-gsl/2020-04/msg00000.html
'((add-before 'check 'disable-failing-tests
(lambda _
(substitute* "linalg/test.c"
((".*gsl_test\\(test_LU_decomp.*") "\n")
((".*gsl_test\\(test_LUc_decomp.*") "\n")
((".*gsl_test\\(test_cholesky_decomp.*") "\n")
((".*gsl_test\\(test_COD_lssolve2.*") "\n"))
(substitute* "spmatrix/test.c"
((".*test_all.*") "\n")
((".*test_float.*") "\n")
((".*test_complex.*") "\n"))
#t))))
(else '()))))))
(home-page "https://www.gnu.org/software/gsl/")
(synopsis "Numerical library for C and C++")
(description