gnu: samtools: Remove patch-makefile-curses phase.

* gnu/packages/bioinformatics.scm (samtools)[arguments]: Remove
  patch-makefile-curses phase, use make-flags instead.
master
Ricardo Wurmus 2015-04-23 15:23:26 +02:00
parent 167a05aabc
commit 0a75450c14
1 changed files with 18 additions and 23 deletions

View File

@ -1068,32 +1068,27 @@ distribution, coverage uniformity, strand specificity, etc.")
;; systems. ;; systems.
#:tests? ,(string=? (or (%current-system) (%current-target-system)) #:tests? ,(string=? (or (%current-system) (%current-target-system))
"x86_64-linux") "x86_64-linux")
#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out"))) #:make-flags (list "LIBCURSES=-lncurses"
(string-append "prefix=" (assoc-ref %outputs "out")))
#:phases #:phases
(alist-cons-after (alist-cons-after
'unpack 'unpack
'patch-makefile-curses 'patch-tests
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(substitute* "Makefile" (let ((bash (assoc-ref inputs "bash")))
(("-lcurses") "-lncurses"))) (substitute* "test/test.pl"
(alist-cons-after ;; The test script calls out to /bin/bash
'unpack (("/bin/bash")
'patch-tests (string-append bash "/bin/bash"))
(lambda* (#:key inputs #:allow-other-keys) ;; There are two failing tests upstream relating to the "stats"
(let ((bash (assoc-ref inputs "bash"))) ;; subcommand in test_usage_subcommand ("did not have Usage"
(substitute* "test/test.pl" ;; and "usage did not mention samtools stats"), so we disable
;; The test script calls out to /bin/bash ;; them.
(("/bin/bash") (("(test_usage_subcommand\\(.*\\);)" cmd)
(string-append bash "/bin/bash")) (string-append "unless ($subcommand eq 'stats') {" cmd "};")))))
;; There are two failing tests upstream relating to the "stats" (alist-delete
;; subcommand in test_usage_subcommand ("did not have Usage" 'configure
;; and "usage did not mention samtools stats"), so we disable %standard-phases))))
;; them.
(("(test_usage_subcommand\\(.*\\);)" cmd)
(string-append "unless ($subcommand eq 'stats') {" cmd "};")))))
(alist-delete
'configure
%standard-phases)))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("ncurses" ,ncurses) (inputs `(("ncurses" ,ncurses)
("perl" ,perl) ("perl" ,perl)