diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-26 22:23:11 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-06-26 22:52:06 +0200 |
| commit | 6d382339de1c9fbe20ec056fb5200d5724a4aa44 (patch) | |
| tree | 34f20217c6d9c09649bfb4a512d29925968d4699 /tests/profiles.scm | |
| parent | 94a400bebae48aebc35fb84aa0b134b25ce46e46 (diff) | |
| download | patches-6d382339de1c9fbe20ec056fb5200d5724a4aa44.tar patches-6d382339de1c9fbe20ec056fb5200d5724a4aa44.tar.gz | |
profiles: Add 'manifest-transaction-removal-candidate?'.
* guix/profiles.scm (manifest-transaction-removal-candidate?): New
procedure.
* tests/profiles.scm ("manifest-transaction-removal-candidate?"): New
test.
Diffstat (limited to 'tests/profiles.scm')
| -rw-r--r-- | tests/profiles.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/profiles.scm b/tests/profiles.scm index f731807e8c..469dde2652 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm @@ -197,6 +197,13 @@ (test-assert "manifest-transaction-null?" (manifest-transaction-null? (manifest-transaction))) +(test-assert "manifest-transaction-removal-candidate?" + (let ((m (manifest (list guile-2.0.9))) + (t (manifest-transaction + (remove (list (manifest-pattern (name "guile"))))))) + (and (manifest-transaction-removal-candidate? guile-2.0.9 t) + (not (manifest-transaction-removal-candidate? glibc t))))) + (test-assertm "profile-derivation" (mlet* %store-monad ((entry -> (package->manifest-entry %bootstrap-guile)) |