diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-11-20 12:07:02 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-11-22 15:07:58 +0100 |
| commit | ce30a0eb7e21481815df379b4621aa48a13200bb (patch) | |
| tree | ba23b2ac3bf64cdac1beb292bd0e35d9d9f919aa /tests | |
| parent | d76df98fa59166c0c9f71ca41d664857d93e136d (diff) | |
| download | guix-ce30a0eb7e21481815df379b4621aa48a13200bb.tar guix-ce30a0eb7e21481815df379b4621aa48a13200bb.tar.gz | |
profiles: Add 'concatenate-manifests'.
* guix/profiles.scm (concatenate-manifests): New procedure.
* tests/profiles.scm ("concatenate-manifests"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/profiles.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/profiles.scm b/tests/profiles.scm index a4e28672b5..21c912a532 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm @@ -113,6 +113,11 @@ (manifest-matching-entries m (list p)) #f))) +(test-equal "concatenate-manifests" + (manifest (list guile-2.0.9 glibc)) + (concatenate-manifests (list (manifest (list guile-2.0.9)) + (manifest (list glibc))))) + (test-assert "manifest-remove" (let* ((m0 (manifest (list guile-2.0.9 guile-2.0.9:debug))) (m1 (manifest-remove m0 |