gnu: vorta: Update to 0.9.1.

* gnu/packages/backup.scm (vorta): Update to 0.9.1.
[source]: Update origin url.
[build-system]: Use pyproject-build-system.
[arguments]: Disable tests that require an X server, update module imports,
and move check phase to before check phase.
[native-inputs]: Add python-platformdirs.
[inputs]: Use qt 6 version of inputs.

Change-Id: I9f56d892d2a0284ebe1a38d80705fbc03f18e4a2
This commit is contained in:
jgart 2024-09-25 19:46:46 -05:00
parent a2edd2a4eb
commit 8576aaf5f9
No known key found for this signature in database
GPG key ID: A52AA2B477B6DD35

View file

@ -24,6 +24,7 @@
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Feng Shu <tumashu@163.com> ;;; Copyright © 2022 Feng Shu <tumashu@163.com>
;;; Copyright © 2023 Timo Wilken <guix@twilken.net> ;;; Copyright © 2023 Timo Wilken <guix@twilken.net>
;;; Copyright © 2024 jgart <jgart@dismail.de>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -45,6 +46,7 @@
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system go) #:use-module (guix build-system go)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system qt) #:use-module (guix build-system qt)
#:use-module (guix download) #:use-module (guix download)
@ -1359,22 +1361,30 @@ borgmatic is powered by borg.")
(define-public vorta (define-public vorta
(package (package
(name "vorta") (name "vorta")
(version "0.8.7") (version "0.9.1")
;; The test folder is not included in the PyPI archive.
(source (origin (source (origin
(method url-fetch) (method git-fetch)
(uri (pypi-uri "vorta" version)) (uri (git-reference
(url "https://github.com/borgbase/vorta")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0yv2z2djbl7aq3fa9m3ihzv9i99a5ahsxz7dlzwvvf4a7pmhc6b2")))) "0lhqikwrydnys24yic6xaqidwacdibx48cl0066xv9xnsjanfsf0"))))
(build-system python-build-system) (build-system pyproject-build-system)
(arguments (arguments
(list (list
#:test-flags
#~(list "-k" "not test_excludes"
"--ignore=tests/integration"
"--ignore=tests/unit")
#:imported-modules `((guix build qt-utils) #:imported-modules `((guix build qt-utils)
(guix build cmake-build-system) (guix build cmake-build-system)
(guix build qt-build-system) (guix build qt-build-system)
,@%python-build-system-modules) ,@%pyproject-build-system-modules)
#:modules '((guix build utils) #:modules '((guix build utils)
(guix build python-build-system) (guix build pyproject-build-system)
((guix build qt-build-system) #:prefix qt:)) ((guix build qt-build-system) #:prefix qt:))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
@ -1384,15 +1394,16 @@ borgmatic is powered by borg.")
(("which\\('borg'\\)") (("which\\('borg'\\)")
(string-append "which('" #$(this-package-input "borg") (string-append "which('" #$(this-package-input "borg")
"/bin/borg')"))))) "/bin/borg')")))))
;; XXX This phase tries to write to $HOME ;; XXX The test suite tries to write to $HOME.
(add-before 'sanity-check 'set-HOME (add-before 'check 'set-HOME
(lambda _ (lambda _
(setenv "HOME" "/tmp"))) (setenv "HOME" "/tmp")))
;; Otherwise, the user interface's icons will be missing. ;; Otherwise, the user interface's icons will be missing.
(add-after 'wrap 'qt-wrap (add-after 'wrap 'qt-wrap
(assoc-ref qt:%standard-phases 'qt-wrap))))) (assoc-ref qt:%standard-phases 'qt-wrap)))))
(native-inputs (native-inputs
(list python-pytest-mock (list python-platformdirs
python-pytest-mock
python-pytest-qt python-pytest-qt
python-pytest-runner python-pytest-runner
python-setuptools-git)) python-setuptools-git))
@ -1404,11 +1415,11 @@ borgmatic is powered by borg.")
python-paramiko python-paramiko
python-peewee python-peewee
python-psutil python-psutil
python-pyqt python-pyqt-6
python-secretstorage python-secretstorage
;; This is included so that the qt-wrap phase picks it up. ;; This is included so that the qt-wrap phase picks it up.
qtsvg-5)) qtsvg))
(home-page "https://github.com/borgbase/vorta") (home-page "https://vorta.borgbase.com")
(synopsis "Graphical backup client based on BorgBackup") (synopsis "Graphical backup client based on BorgBackup")
(description "Vorta is a graphical backup client based on the Borg backup (description "Vorta is a graphical backup client based on the Borg backup
tool. It supports the use of remote backup repositories. It can perform tool. It supports the use of remote backup repositories. It can perform