gnu: cutadapt: Use ‘modify-phases’ syntax.

* gnu/packages/bioinformatics.scm (cutadapt)[arguments]: Use
‘modify-phases’.
This commit is contained in:
Tobias Geerinckx-Rice 2016-12-19 21:13:53 +01:00
parent 2fb5af2c2b
commit 33d5b2464d
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99
1 changed files with 15 additions and 14 deletions

View File

@ -1816,20 +1816,21 @@ preparation protocols.")
"19smhh6444ikn4jlmyhvffw4m5aw7yg07rqsk7arg8dkwyga1i4v")))) "19smhh6444ikn4jlmyhvffw4m5aw7yg07rqsk7arg8dkwyga1i4v"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
;; tests must be run after install `(#:phases
`(#:phases (alist-cons-after (modify-phases %standard-phases
'install 'check ;; The tests must be run after installation.
(lambda* (#:key inputs outputs #:allow-other-keys) (delete 'check)
(setenv "PYTHONPATH" (add-after 'install 'check
(string-append (lambda* (#:key inputs outputs #:allow-other-keys)
(getenv "PYTHONPATH") (setenv "PYTHONPATH"
":" (assoc-ref outputs "out") (string-append
"/lib/python" (getenv "PYTHONPATH")
(string-take (string-take-right ":" (assoc-ref outputs "out")
(assoc-ref inputs "python") 5) 3) "/lib/python"
"/site-packages")) (string-take (string-take-right
(zero? (system* "nosetests" "-P" "tests"))) (assoc-ref inputs "python") 5) 3)
(alist-delete 'check %standard-phases)))) "/site-packages"))
(zero? (system* "nosetests" "-P" "tests")))))))
(inputs (inputs
`(("python-xopen" ,python-xopen))) `(("python-xopen" ,python-xopen)))
(native-inputs (native-inputs