ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ghc-8.10: Disable failing test on i686.

Browse source 
Not sure why it fails.

* gnu/packages/haskell.scm (ghc-8.10) [#:phases]: Add new conditional
phase to disable failing testcase on i686 without modifying derivation
for other architectures to avoid rebuild.
This commit is contained in:
Lars-Dominik Braun 2021-10-09 15:32:27 +02:00
parent fd8ea9abf5
commit 89de1924cb
No known key found for this signature in database
GPG key ID: F663943E08D8092A
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/haskell.scm
View file

@ -710,7 +710,15 @@ (define-public ghc-8.10
(substitute* '("testsuite/tests/driver/T16521/all.T") (substitute* '("testsuite/tests/driver/T16521/all.T")
(("extra_files" all) (string-append "[" all)) (("extra_files" all) (string-append "[" all))
(("\\]\\), " all) (("\\]\\), " all)
(string-append all "expect_broken(0)], "))))))))) (string-append all "expect_broken(0)], ")))))
;; TODO: Turn this into an undconditional patch on the next rebuild.
,@(if (string=? "i686-linux" (%current-system))
'((add-after 'skip-more-tests 'skip-failing-tests-i686
(lambda _
(substitute* '("testsuite/tests/codeGen/should_compile/all.T")
(("(test\\('T15155l', )when\\(unregisterised\\(\\), skip\\)" all before)
(string-append before "when(arch('i386'), skip)"))))))
'())))))
(native-search-paths (list (search-path-specification (native-search-paths (list (search-path-specification
(variable "GHC_PACKAGE_PATH") (variable "GHC_PACKAGE_PATH")
(files (list (files (list