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>
This commit is contained in:
Theodoros Foradis 2018-07-08 20:39:27 +03:00 committed by Ludovic Courtès
parent 0a551443ae
commit 797445be47
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -430,9 +430,8 @@ (define-public monero
#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 @@ (define-public monero
"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"))