gnu: sane-backends-minimal: Run most tests.

* gnu/packages/scanner.scm (sane-backends-minimal)[arguments]: Add a
‘disable-failing-tests’ phase to do just that, and run the rest.
This commit is contained in:
Tobias Geerinckx-Rice 2017-05-24 17:08:22 +02:00
parent 4febd4b0f4
commit 4ed390a0e7
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99
1 changed files with 24 additions and 21 deletions

View File

@ -2,6 +2,7 @@
;;; Copyright © 2014 John Darrington <jmd@gnu.org> ;;; Copyright © 2014 John Darrington <jmd@gnu.org>
;;; Copyright © 2015 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca> ;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -53,15 +54,27 @@
(inputs (inputs
`(("libusb-compat" ,libusb-compat))) `(("libusb-compat" ,libusb-compat)))
(arguments (arguments
`(#:tests? #f `(#:phases
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'disable-backends (add-before 'configure 'disable-backends
(lambda _ (lambda _
(setenv "BACKENDS" " ") (setenv "BACKENDS" " ")
#t)) #t))
(add-after ;; Disable unmaintained tests that that fail with errors resembling:
'install 'install-udev-rules ;;
;; < # by sane-desc 3.5 from sane-backends 1.0.24git on Jul 31 2013
;; ---
;; > # by sane-desc 3.5 from sane-backends 1.0.27 on 1970-01-01#
;; FAIL: sane-desc -m usermap -s ./data
(add-before 'configure 'disable-failing-tests
(lambda _
(for-each
(lambda (pattern)
(substitute* "testsuite/tools/Makefile.in"
(((string-append " " pattern " ")) " ")))
(list "usermap" "db" "udev" "udev\\+acl" "udev\\+hwdb" "hwdb"))
#t))
(add-after 'install 'install-udev-rules
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/lib/udev/rules.d")) (mkdir-p (string-append out "/lib/udev/rules.d"))
@ -69,16 +82,6 @@
(string-append out (string-append out
"/lib/udev/rules.d/" "/lib/udev/rules.d/"
"60-libsane.rules")))))))) "60-libsane.rules"))))))))
;; It would seem that tests are not maintained - fails with
;; the following:
;;
;; < This page was last updated on Wed Jul 31 07:52:48 2013
;; < by sane-desc 3.5 from sane-backends 1.0.24git
;; ---
;; > This page was last updated on Sun Oct 19 15:41:39 2014
;; > by sane-desc 3.5 from sane-backends 1.0.24
;; **** File generated for html-backends-split mode is different from reference
;; Makefile:501: recipe for target 'check.local' failed
(home-page "http://www.sane-project.org") (home-page "http://www.sane-project.org")
(synopsis (synopsis
"Raster image scanner library and drivers, without scanner support") "Raster image scanner library and drivers, without scanner support")