amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix package: Add 'transaction-upgrade-entry' test.

Browse source 
* tests/packages.scm ("transaction-upgrade-entry, zero upgrades, equivalent package"):
New test.
This commit is contained in:
Ludovic Courtès 2020-03-30 23:19:38 +02:00
parent 1a9a373eb4
commit b9c79cae53
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tests/packages.scm
View file

@ -109,6 +109,19 @@
(manifest-transaction))))) (manifest-transaction)))))
(manifest-transaction-null? tx))) (manifest-transaction-null? tx)))
(test-assert "transaction-upgrade-entry, zero upgrades, equivalent package"
(let* ((old (dummy-package "foo" (version "1")))
(drv (package-derivation %store old))
(tx (mock ((gnu packages) find-best-packages-by-name
(const (list old)))
(transaction-upgrade-entry
%store
(manifest-entry
(inherit (package->manifest-entry old))
(item (derivation->output-path drv)))
(manifest-transaction)))))
(manifest-transaction-null? tx)))
(test-assert "transaction-upgrade-entry, one upgrade" (test-assert "transaction-upgrade-entry, one upgrade"
(let* ((old (dummy-package "foo" (version "1"))) (let* ((old (dummy-package "foo" (version "1")))
(new (dummy-package "foo" (version "2"))) (new (dummy-package "foo" (version "2")))