diff options
author | Ludovic Courtès <ludo@gnu.org> | 2024-07-18 12:26:51 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-07-18 17:31:18 +0200 |
commit | a9d8ad6595b5501e3b257266370591759b5bd82e (patch) | |
tree | 9d2d56e9ef3ee3cac3d3b655bb288d05b6f9e132 | |
parent | 0553c4447115f7be208fe3e7e29e365ecb74a564 (diff) | |
download | guix-a9d8ad6595b5501e3b257266370591759b5bd82e.tar.gz guix-a9d8ad6595b5501e3b257266370591759b5bd82e.zip |
tests: base: Compare all the service provisions, not just canonical names.
* gnu/tests/base.scm (run-basic-test)["shepherd services"]: Use
‘append-map’ on live service provisions to match what
‘operating-system-shepherd-service-names’ does.
Change-Id: Ie54082eed6c7b8d37d3428711e71c11e80940235
-rw-r--r-- | gnu/tests/base.scm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index acba1ebd25..715b9036f9 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2016-2020, 2022, 2024 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2022 Marius Bakke <marius@gnu.org> @@ -200,14 +200,17 @@ info --version") (test-assert "shepherd services" (let ((services (marionette-eval '(begin - (use-modules (gnu services herd)) + (use-modules (gnu services herd) + (srfi srfi-1)) - (map (compose car live-service-provision) - (current-services))) + (append-map live-service-provision + (current-services))) marionette))) (lset= eq? (pk 'services services) - '(root #$@(operating-system-shepherd-service-names os))))) + '(root + shepherd + #$@(operating-system-shepherd-service-names os))))) (test-equal "libc honors /etc/localtime" -7200 ;CEST = GMT+2 |