summary refs log tree commit diff
diff options
context:
space:
mode:
authorTheodoros Foradis <theodoros@foradis.org>2018-07-08 20:39:27 +0300
committerLudovic Courtès <ludo@gnu.org>2018-07-16 16:40:54 +0200
commit797445be47af389610541f9eb969537845d301d9 (patch)
treeb2c51f9be8546cf2ca2f9da6cf926bea9dc0ebdb
parent0a551443aeb2563f894494477ad809555244de68 (diff)
downloadguix-797445be47af389610541f9eb969537845d301d9.tar.gz
gnu: monero: Return #t from phases.
* gnu/packages/finance.scm (monero)[arguments]: Substitute invoke for system*.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r--gnu/packages/finance.scm12
1 files changed, 5 insertions, 7 deletions
diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index 333fe6531a..ccfb98c68d 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -430,9 +430,8 @@ other machines/servers.  Electroncash does not download the Bitcoin Cash blockch
              #t))
          (replace 'check
            (lambda _
-             (zero?
-              (system* "make" "ARGS=-E 'unit_tests|libwallet_api_tests'"
-                       "test"))))
+             (invoke "make" "ARGS=-E 'unit_tests|libwallet_api_tests'"
+                     "test")))
          ;; The excluded unit tests need network access
          (add-after 'check 'unit-tests
            (lambda _
@@ -445,10 +444,9 @@ other machines/servers.  Electroncash does not download the Bitcoin Cash blockch
                        "DNSResolver.DNSSECFailure"
                        "DNSResolver.GetTXTRecord")
                      ":")))
-               (zero?
-                (system* "tests/unit_tests/unit_tests"
-                         (string-append "--gtest_filter=-"
-                                        excluded-unit-tests))))))
+               (invoke "tests/unit_tests/unit_tests"
+                       (string-append "--gtest_filter=-"
+                                      excluded-unit-tests)))))
          (add-after 'install 'install-blockchain-import-export
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))