me/guix
Archived
1
0
Fork 0
Code Activity

gnu: monero: Update to 0.18.0.0.

Browse source 
* gnu/packages/finance.scm (monero): Update to 0.18.0.0.
  [source]: Update snippet.
  [arguments]: Use gexps.
This commit is contained in:
Guillaume Le Vaillant 2022-08-02 11:07:06 +02:00
parent b4d9493ceb
commit e7bac8584b
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 54 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

109
gnu/packages/finance.scm
View file

@ -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