diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-09-02 15:39:50 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-09-02 15:39:50 +0200 |
| commit | 072e10615fc786db02dc44f3cd5f25aed2969111 (patch) | |
| tree | dbae10eaf8cf13a28c0151a418971fb770243eda /gnu/tests/base.scm | |
| parent | 3964e358ab65dfd157427560bfb44de8a150068b (diff) | |
| parent | 135ba811c6f55c22bfa8969143d83e7fdf166763 (diff) | |
| download | guix-072e10615fc786db02dc44f3cd5f25aed2969111.tar guix-072e10615fc786db02dc44f3cd5f25aed2969111.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/tests/base.scm')
| -rw-r--r-- | gnu/tests/base.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index ca6f76c0f8..41f50c0e7a 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm @@ -122,11 +122,13 @@ info --version") (operating-system-user-accounts os)))))) (test-assert "shepherd services" - (let ((services (marionette-eval '(begin - (use-modules (gnu services herd)) - (call-with-values current-services - append)) - marionette))) + (let ((services (marionette-eval + '(begin + (use-modules (gnu services herd)) + + (map (compose car live-service-provision) + (current-services))) + marionette))) (lset= eq? (pk 'services services) '(root #$@(operating-system-shepherd-service-names os))))) |