me
/
guix
Archived
1
0
Fork 0
Code

gnu: bluez: Disable unpredictable test on armhf. 

* gnu/packages/linux.scm (bluez): [arguments] Add phase to skip a test instead
of marking it as XFAIL.
master
Thomas Danckaert 2017-10-11 18:05:24 +02:00
parent 01d87d3c18
commit de47cfed13
No known key found for this signature in database
GPG Key ID: 5C3B064C724A5726
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/linux.scm
View File

@ -3051,6 +3051,16 @@ Bluetooth audio output devices like headphones or loudspeakers.")
(string-append "--with-udevdir=" out "/lib/udev"))) (string-append "--with-udevdir=" out "/lib/udev")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
,@(if (string=? (%current-system) "armhf-linux")
;; This test fails unpredictably.
;; TODO: skip it for all architectures.
`((add-before 'check 'skip-wonky-test
(lambda _
(substitute* "unit/test-gatt.c"
(("tester_init\\(&argc, &argv\\);") "return 77;"))
#t)))
`())
(add-after 'install 'post-install (add-after 'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -3069,12 +3079,7 @@ Bluetooth audio output devices like headphones or loudspeakers.")
(string-append out "/lib/udev/hid2hci --method")) (string-append out "/lib/udev/hid2hci --method"))
(("/sbin/udevadm") (("/sbin/udevadm")
(string-append (assoc-ref inputs "eudev") "/bin/udevadm"))) (string-append (assoc-ref inputs "eudev") "/bin/udevadm")))
#t)))) #t))))))
;; FIXME: Skip one test that segfaults on ARM.
,@(if (string=? (%current-system) "armhf-linux")
'(#:make-flags '("XFAIL_TESTS=unit/test-gatt"))
'())))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("gettext" ,gettext-minimal))) ("gettext" ,gettext-minimal)))