summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorAntero Mejr <antero@mailbox.org>2022-05-27 13:13:28 -0400
committerLudovic Courtès <ludo@gnu.org>2022-06-06 22:43:30 +0200
commit7041fe0646a9603e7d1d6bde139a284146515917 (patch)
tree291d34978be6434bd52681518a967ee3cd976097 /tests
parentf08bfca0836ea515ea8ddcfb72d319fd6838908a (diff)
packages: Add 'specifications->packages'.
* gnu/packages.scm (specifications->packages): New procedure. * guix/scripts/home/import.scm (manifest+configuration-files->code): Use it. * tests/home-import.scm (match-home-environment-no-services) (match-home-environment-no-services-nor-packages) (match-home-environment-bash-service) (match-home-environment-bash-service-with-alias): Adjust 'packages' field accordingly. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'tests')
-rw-r--r--tests/home-import.scm13
1 files changed, 5 insertions, 8 deletions
diff --git a/tests/home-import.scm b/tests/home-import.scm
index ca8aa95431..d62a6de648 100644
--- a/tests/home-import.scm
+++ b/tests/home-import.scm
@@ -103,8 +103,8 @@ corresponding file."
('gnu 'services))
('home-environment
('packages
- ('map ('compose 'list 'specification->package+output)
- ('list "guile@2.0.9" "gcc:lib" "glibc@2.19")))
+ ('specifications->packages
+ ('list "guile@2.0.9" "gcc:lib" "glibc@2.19")))
('services
('list)))))
@@ -132,8 +132,7 @@ corresponding file."
('gnu 'services))
('home-environment
('packages
- ('map ('compose 'list 'specification->package+output)
- ('list)))
+ ('specifications->packages ('list)))
('services
('list)))))
@@ -147,8 +146,7 @@ corresponding file."
('gnu 'home 'services 'shells))
('home-environment
('packages
- ('map ('compose 'list 'specification->package+output)
- ('list)))
+ ('specifications->packages ('list)))
('services
('list ('service
'home-bash-service-type
@@ -168,8 +166,7 @@ corresponding file."
('gnu 'home 'services 'shells))
('home-environment
('packages
- ('map ('compose 'list 'specification->package+output)
- ('list)))
+ ('specifications->packages ('list)))
('services
('list ('service
'home-bash-service-type