nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
gnu/packages/scanner.scm
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,32 +54,34 @@
(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 ;;
(lambda* (#:key outputs #:allow-other-keys) ;; < # by sane-desc 3.5 from sane-backends 1.0.24git on Jul 31 2013
(let ((out (assoc-ref outputs "out"))) ;; ---
(mkdir-p (string-append out "/lib/udev/rules.d")) ;; > # by sane-desc 3.5 from sane-backends 1.0.27 on 1970-01-01#
(copy-file "tools/udev/libsane.rules" ;; FAIL: sane-desc -m usermap -s ./data
(string-append out (add-before 'configure 'disable-failing-tests
"/lib/udev/rules.d/" (lambda _
"60-libsane.rules")))))))) (for-each
;; It would seem that tests are not maintained - fails with (lambda (pattern)
;; the following: (substitute* "testsuite/tools/Makefile.in"
;; (((string-append " " pattern " ")) " ")))
;; < This page was last updated on Wed Jul 31 07:52:48 2013 (list "usermap" "db" "udev" "udev\\+acl" "udev\\+hwdb" "hwdb"))
;; < by sane-desc 3.5 from sane-backends 1.0.24git #t))
;; --- (add-after 'install 'install-udev-rules
;; > This page was last updated on Sun Oct 19 15:41:39 2014 (lambda* (#:key outputs #:allow-other-keys)
;; > by sane-desc 3.5 from sane-backends 1.0.24 (let ((out (assoc-ref outputs "out")))
;; **** File generated for html-backends-split mode is different from reference (mkdir-p (string-append out "/lib/udev/rules.d"))
;; Makefile:501: recipe for target 'check.local' failed (copy-file "tools/udev/libsane.rules"
(string-append out
"/lib/udev/rules.d/"
"60-libsane.rules"))))))))
(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")