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.
This commit is contained in:
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

View File

@ -3051,6 +3051,16 @@ Bluetooth audio output devices like headphones or loudspeakers.")
(string-append "--with-udevdir=" out "/lib/udev")))
#: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
(lambda* (#:key inputs outputs #:allow-other-keys)
(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"))
(("/sbin/udevadm")
(string-append (assoc-ref inputs "eudev") "/bin/udevadm")))
#t))))
;; FIXME: Skip one test that segfaults on ARM.
,@(if (string=? (%current-system) "armhf-linux")
'(#:make-flags '("XFAIL_TESTS=unit/test-gatt"))
'())))
#t))))))
(native-inputs
`(("pkg-config" ,pkg-config)
("gettext" ,gettext-minimal)))