diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-30 23:19:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-31 00:06:36 +0200 |
| commit | b9c79cae53f5f828e078ac5aafc2d80fa3204aae (patch) | |
| tree | 369a0035a140726c2dde1e41ebe2346a2a259cbc /tests | |
| parent | 1a9a373eb445d21add006a46c18df0da11e52cbe (diff) | |
| download | patches-b9c79cae53f5f828e078ac5aafc2d80fa3204aae.tar patches-b9c79cae53f5f828e078ac5aafc2d80fa3204aae.tar.gz | |
guix package: Add 'transaction-upgrade-entry' test.
* tests/packages.scm ("transaction-upgrade-entry, zero upgrades, equivalent package"):
New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/packages.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index c2ec1f2c24..d0befbe45d 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -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"))) |