guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

04/06: guix package: Add 'transaction-upgrade-entry' test.


From: guix-commits
Subject: 04/06: guix package: Add 'transaction-upgrade-entry' test.
Date: Mon, 30 Mar 2020 18:07:40 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit b9c79cae53f5f828e078ac5aafc2d80fa3204aae
Author: Ludovic Court├Ęs <address@hidden>
AuthorDate: Mon Mar 30 23:19:38 2020 +0200

    guix package: Add 'transaction-upgrade-entry' test.
    
    * tests/packages.scm ("transaction-upgrade-entry, zero upgrades, equivalent 
package"):
    New test.
---
 tests/packages.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/packages.scm b/tests/packages.scm
index c2ec1f2..d0befbe 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")))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]