03/18: gnu: java-jnacl: Use invoke.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 602f54f436d41634adaa56e4ff645a6bad202daf
Author: Ricardo Wurmus <address@hidden>
Date:   Tue Feb 27 20:36:58 2018 +0100

    gnu: java-jnacl: Use invoke.
    
    * gnu/packages/java.scm (java-jnacl)[arguments]: Use "invoke".
---
 gnu/packages/java.scm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index 7a90bfb..bc2fb32 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -7538,18 +7538,18 @@ to use.")
              #t))
          (replace 'check
            (lambda _
-             (system* "ant" "compile-tests")
-             (and
-               (zero? (system* "java" "-cp" (string-append (getenv "CLASSPATH")
-                                                           ":build/classes"
-                                                           
":build/test-classes")
-                               "org.testng.TestNG" "-testclass"
-                               
"build/test-classes/com/neilalexander/jnacl/NaclSecretBoxTest.class"))
-               (zero? (system* "java" "-cp" (string-append (getenv "CLASSPATH")
-                                                           ":build/classes"
-                                                           
":build/test-classes")
-                               "org.testng.TestNG" "-testclass"
-                               
"build/test-classes/com/neilalexander/jnacl/NaClTest.class"))))))))
+             (invoke "ant" "compile-tests")
+             (invoke "java" "-cp" (string-append (getenv "CLASSPATH")
+                                                 ":build/classes"
+                                                 ":build/test-classes")
+                     "org.testng.TestNG" "-testclass"
+                     
"build/test-classes/com/neilalexander/jnacl/NaclSecretBoxTest.class")
+             (invoke "java" "-cp" (string-append (getenv "CLASSPATH")
+                                                 ":build/classes"
+                                                 ":build/test-classes")
+                     "org.testng.TestNG" "-testclass"
+                     
"build/test-classes/com/neilalexander/jnacl/NaClTest.class")
+             #t)))))
     (native-inputs
      `(("java-testng" ,java-testng)
        ("java-fest-util" ,java-fest-util)