diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-09-06 20:19:21 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-09-06 23:22:10 +0200 |
| commit | c8c25704aeb2e5fa4feb6a86235f9565738eea99 (patch) | |
| tree | 2fd64514533485cd8b1bebf1bad851863d5756dd /tests/profiles.scm | |
| parent | dd72173455b31aeddb4a691285bd5c0702c75d34 (diff) | |
| download | patches-c8c25704aeb2e5fa4feb6a86235f9565738eea99.tar patches-c8c25704aeb2e5fa4feb6a86235f9565738eea99.tar.gz | |
profiles: Add manifest-transaction helper procedures.
* guix/profiles.scm (manifest-transaction-install-entry)
(manifest-transaction-remove-pattern)
(manifest-transaction-null?): New procedures.
* tests/profiles.scm ("manifest-transaction-null?"): New test.
Diffstat (limited to 'tests/profiles.scm')
| -rw-r--r-- | tests/profiles.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/profiles.scm b/tests/profiles.scm index 028d7b6fb4..f9c2f5499e 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm @@ -187,6 +187,9 @@ (and (null? remove) (null? install) (null? downgrade) (equal? (list (cons guile-2.0.9 guile-2.0.9)) upgrade))))) +(test-assert "manifest-transaction-null?" + (manifest-transaction-null? (manifest-transaction))) + (test-assertm "profile-derivation" (mlet* %store-monad ((entry -> (package->manifest-entry %bootstrap-guile)) |