gnu: monero: Update to 0.18.0.0.
* gnu/packages/finance.scm (monero): Update to 0.18.0.0. [source]: Update snippet. [arguments]: Use gexps.
Guillaume Le Vaillant
parent
b4d9493ceb
commit
e7bac8584b
|
|
@ -671,7 +671,7 @@ blockchain.")
|
||||||
;; the system's dynamically linked library.
|
;; the system's dynamically linked library.
|
||||||
(package
|
(package
|
||||||
(name "monero")
|
(name "monero")
|
||||||
(version "0.17.3.2")
|
(version "0.18.0.0")
|
||||||
(source
|
(source
|
||||||
(origin
|
(origin
|
||||||
(method git-fetch)
|
(method git-fetch)
|
||||||
|
|
@ -687,10 +687,9 @@ blockchain.")
|
||||||
;; Delete bundled dependencies.
|
;; Delete bundled dependencies.
|
||||||
(for-each
|
(for-each
|
||||||
delete-file-recursively
|
delete-file-recursively
|
||||||
'("external/miniupnp" "external/rapidjson"
|
'("external/miniupnp" "external/rapidjson"))))
|
||||||
"external/unbound"))))
|
|
||||||
(sha256
|
(sha256
|
||||||
(base32 "19sgcbli7fc1l6ms7ma6hcz1mmpbnd296lc8a19rl410acpv45zy"))))
|
(base32 "1jq2v2dg50gl3cf9s61jssny5rraclxqj4cc4y0sl00ip8icj08v"))))
|
||||||
(build-system cmake-build-system)
|
(build-system cmake-build-system)
|
||||||
(native-inputs
|
(native-inputs
|
||||||
(list doxygen
|
(list doxygen
|
||||||
|
|
@ -716,57 +715,57 @@ blockchain.")
|
||||||
xz
|
xz
|
||||||
zeromq))
|
zeromq))
|
||||||
(arguments
|
(arguments
|
||||||
`(#:out-of-source? #t
|
(list #:out-of-source? #t
|
||||||
#:configure-flags
|
#:configure-flags
|
||||||
(list "-DARCH=default"
|
#~(list "-DARCH=default"
|
||||||
"-DBUILD_TESTS=ON"
|
"-DBUILD_TESTS=ON"
|
||||||
(string-append "-DReadline_ROOT_DIR="
|
(string-append "-DReadline_ROOT_DIR="
|
||||||
(assoc-ref %build-inputs "readline")))
|
#$(this-package-input "readline")))
|
||||||
#:phases
|
#:phases
|
||||||
(modify-phases %standard-phases
|
#~(modify-phases %standard-phases
|
||||||
;; tests/core_tests need a valid HOME
|
;; tests/core_tests need a valid HOME
|
||||||
(add-before 'configure 'set-home
|
(add-before 'configure 'set-home
|
||||||
(lambda _
|
(lambda _
|
||||||
(setenv "HOME" (getcwd))))
|
(setenv "HOME" (getcwd))))
|
||||||
(add-after 'set-home 'change-log-path
|
(add-after 'set-home 'change-log-path
|
||||||
(lambda _
|
(lambda _
|
||||||
(substitute* "contrib/epee/src/mlog.cpp"
|
(substitute* "contrib/epee/src/mlog.cpp"
|
||||||
(("epee::string_tools::get_current_module_folder\\(\\)")
|
(("epee::string_tools::get_current_module_folder\\(\\)")
|
||||||
"\".bitmonero\"")
|
"\".bitmonero\"")
|
||||||
(("return \\(")
|
(("return \\(")
|
||||||
"return ((std::string(getenv(\"HOME\"))) / "))))
|
"return ((std::string(getenv(\"HOME\"))) / "))))
|
||||||
(add-after 'change-log-path 'fix-file-permissions-for-tests
|
(add-after 'change-log-path 'fix-file-permissions-for-tests
|
||||||
(lambda _
|
(lambda _
|
||||||
(for-each make-file-writable
|
(for-each make-file-writable
|
||||||
(find-files "tests/data/" "wallet_9svHk1.*"))))
|
(find-files "tests/data/" "wallet_9svHk1.*"))))
|
||||||
;; Only try tests that don't need access to network or system
|
;; Only try tests that don't need access to network or system
|
||||||
(replace 'check
|
(replace 'check
|
||||||
(lambda* (#:key tests? #:allow-other-keys)
|
(lambda* (#:key tests? #:allow-other-keys)
|
||||||
;; Core tests sometimes fail, at least on i686-linux.
|
;; Core tests sometimes fail, at least on i686-linux.
|
||||||
;; Let's disable them for now and just try hash tests
|
;; Let's disable them for now and just try hash tests
|
||||||
;; and unit tests.
|
;; and unit tests.
|
||||||
;; (invoke "make" "ARGS=-R 'hash|core_tests' --verbose" "test")))
|
;; (invoke "make" "ARGS=-R 'hash|core_tests' --verbose" "test")))
|
||||||
(when tests?
|
(when tests?
|
||||||
(invoke "make" "ARGS=-R 'hash' --verbose" "test"))))
|
(invoke "make" "ARGS=-R 'hash' --verbose" "test"))))
|
||||||
(add-after 'check 'unit-tests
|
(add-after 'check 'unit-tests
|
||||||
(lambda _
|
(lambda _
|
||||||
(let ((excluded-unit-tests
|
(let ((excluded-unit-tests
|
||||||
(string-join
|
(string-join
|
||||||
'("AddressFromURL.Success"
|
'("AddressFromURL.Success"
|
||||||
"AddressFromURL.Failure"
|
"AddressFromURL.Failure"
|
||||||
"DNSResolver.IPv4Success"
|
"DNSResolver.IPv4Success"
|
||||||
"DNSResolver.DNSSECSuccess"
|
"DNSResolver.DNSSECSuccess"
|
||||||
"DNSResolver.DNSSECFailure"
|
"DNSResolver.DNSSECFailure"
|
||||||
"DNSResolver.GetTXTRecord"
|
"DNSResolver.GetTXTRecord"
|
||||||
"is_hdd.linux_os_root")
|
"is_hdd.linux_os_root")
|
||||||
":")))
|
":")))
|
||||||
(invoke "tests/unit_tests/unit_tests"
|
(invoke "tests/unit_tests/unit_tests"
|
||||||
(string-append "--gtest_filter=-"
|
(string-append "--gtest_filter=-"
|
||||||
excluded-unit-tests)))))
|
excluded-unit-tests)))))
|
||||||
(add-after 'install 'delete-unused-files
|
(add-after 'install 'delete-unused-files
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let ((out (assoc-ref outputs "out")))
|
(delete-file-recursively
|
||||||
(delete-file-recursively (string-append out "/include"))))))))
|
(string-append #$output "/include")))))))
|
||||||
(home-page "https://web.getmonero.org/")
|
(home-page "https://web.getmonero.org/")
|
||||||
(synopsis "Command-line interface to the Monero currency")
|
(synopsis "Command-line interface to the Monero currency")
|
||||||
(description
|
(description
|
||||||
|
|
|
||||||
Reference in New Issue