From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:52608) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eHTJ5-0007g8-5u for guix-patches@gnu.org; Wed, 22 Nov 2017 06:35:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eHTJ1-0004hP-4G for guix-patches@gnu.org; Wed, 22 Nov 2017 06:35:07 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:43264) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eHTJ1-0004hF-1A for guix-patches@gnu.org; Wed, 22 Nov 2017 06:35:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eHTJ0-00080R-R0 for guix-patches@gnu.org; Wed, 22 Nov 2017 06:35:02 -0500 Subject: [bug#29394] [PATCH 10/12] gnu: Add ant-junit. Resent-Message-ID: From: Date: Wed, 22 Nov 2017 12:30:40 +0100 Message-ID: <20171122113042.1734-10-ricardo.wurmus@mdc-berlin.de> In-Reply-To: <20171122113042.1734-1-ricardo.wurmus@mdc-berlin.de> References: <20171122113042.1734-1-ricardo.wurmus@mdc-berlin.de> MIME-Version: 1.0 Content-Type: text/plain List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 29394@debbugs.gnu.org Cc: Ricardo Wurmus From: Ricardo Wurmus * gnu/packages/java.scm (ant-junit): New variable. --- gnu/packages/java.scm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm index eca23d9da..8cf723074 100644 --- a/gnu/packages/java.scm +++ b/gnu/packages/java.scm @@ -1784,6 +1784,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 -- 2.14.1