diff options
author | Ben Woodcroft <donttrustben@gmail.com> | 2016-06-05 09:54:33 +1000 |
---|---|---|
committer | Ben Woodcroft <donttrustben@gmail.com> | 2016-06-05 09:54:33 +1000 |
commit | 5d52ac7453e1144086bdc0ac31f01b06edadd04a (patch) | |
tree | 1a8f4378560889f10a1610fd00236eda6d39bee1 /gnu | |
parent | 40d71e44f5068b28f48bd131940260cc0ab2e2d1 (diff) | |
download | guix-patches-5d52ac7453e1144086bdc0ac31f01b06edadd04a.tar guix-patches-5d52ac7453e1144086bdc0ac31f01b06edadd04a.tar.gz |
gnu: krona-tools: Correct paths used internally.
* gnu/packages/web.scm (krona-tools)[arguments]: Add 'check' phase.
Correct paths used internally.
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/packages/web.scm | 31 |
1 files changed, 17 insertions, 14 deletions
diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index 43fb5a083f..6ac03fcce6 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -291,8 +291,7 @@ parse JSON formatted strings back into the C representation of JSON objects.") "1fj5mf6wbwz7v74n2safbw7fpw32fik19vf0wdbc2srn82i8fiwz")))) (build-system perl-build-system) (arguments - `(#:tests? #f ; no tests - #:phases + `(#:phases (modify-phases %standard-phases ;; There is no configure or build steps. (delete 'configure) @@ -314,9 +313,7 @@ parse JSON formatted strings back into the C representation of JSON objects.") (lambda* (#:key outputs #:allow-other-keys) (let ((bin (string-append (assoc-ref outputs "out") "/bin")) (perl (string-append (assoc-ref outputs "out") - "/lib/perl5/site_perl")) - (share (string-append - (assoc-ref outputs "out") "/share/krona-tools"))) + "/lib/perl5/site_perl/krona-tools/lib"))) (mkdir-p bin) (for-each (lambda (script) @@ -341,13 +338,13 @@ parse JSON formatted strings back into the C representation of JSON objects.") "ImportTaxonomy" "ImportText" "ImportXML")) - (mkdir-p share) - (copy-recursively "data" (string-append share "/data")) - (copy-recursively "img" (string-append share "/img")) - (copy-recursively "taxonomy" (string-append share "/taxonomy")) - (substitute* '("lib/KronaTools.pm") - (("taxonomyDir = \".libPath/../taxonomy\"") - (string-append "taxonomyDir = \"" share "/taxonomy\""))) + (copy-recursively "data" (string-append perl "/../data")) + (copy-recursively "img" (string-append perl "/../img")) + (copy-recursively "taxonomy" (string-append perl "/../taxonomy")) + (install-file "src/krona-2.0.js" (string-append perl "/../src")) + (substitute* "lib/KronaTools.pm" + (("`ktGetLibPath`") + (string-append "\"" perl "\""))) (install-file "lib/KronaTools.pm" perl)))) (add-after 'install 'wrap-program (lambda* (#:key inputs outputs #:allow-other-keys) @@ -357,8 +354,14 @@ parse JSON formatted strings back into the C representation of JSON objects.") (lambda (executable) (wrap-program executable `("PERL5LIB" ":" prefix - (,(string-append out "/lib/perl5/site_perl"))))) - (find-files (string-append out "/bin/") ".*")))))))) + (,(string-append out "/lib/perl5/site_perl/krona-tools/lib"))))) + (find-files (string-append out "/bin/") ".*"))))) + (delete 'check) + (add-after 'wrap-program 'check + (lambda* (#:key inputs outputs #:allow-other-keys) + (with-directory-excursion "data" + (zero? (system* (string-append (assoc-ref outputs "out") "/bin/ktImportText") + "ec.tsv")))))))) (inputs `(("perl" ,perl))) (home-page "https://github.com/marbl/Krona/wiki") |