guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: Add ant-junit.

Browse source 
* gnu/packages/java.scm (ant-junit): New variable.
This commit is contained in:
Ricardo Wurmus 2017-11-20 14:31:34 +01:00
parent 9ce7ac992e
commit fa6c4213c6
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
gnu/packages/java.scm
View file

@ -1785,6 +1785,38 @@ IcedTea build harness.")
`(("java-commons-bcel" ,java-commons-bcel)
,@(package-inputs ant/java8)))))
(define-public ant-junit
(package
(inherit ant/java8)
(name "ant-junit")
(arguments
(substitute-keyword-arguments (package-arguments ant/java8)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'link-junit
(lambda* (#:key inputs #:allow-other-keys)
(for-each (lambda (file)
(symlink file
(string-append "lib/optional/"
(basename file))))
(find-files (assoc-ref inputs "java-junit")
"\\.jar$"))
#t))
(add-after 'build 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share/java"))
(bin (string-append out "/bin"))
(lib (string-append out "/lib")))
(mkdir-p share)
(install-file (string-append lib "/ant-junit.jar") share)
(delete-file-recursively bin)
(delete-file-recursively lib)
#t)))))))
(inputs
`(("java-junit" ,java-junit)
,@(package-inputs ant/java8)))))
(define-public clojure
(let* ((remove-archives '(begin
(for-each delete-file