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

* 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

View File

@ -109,6 +109,19 @@
(manifest-transaction)))))
(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"
(let* ((old (dummy-package "foo" (version "1")))
(new (dummy-package "foo" (version "2")))