From a9d8ad6595b5501e3b257266370591759b5bd82e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 18 Jul 2024 12:26:51 +0200 Subject: tests: base: Compare all the service provisions, not just canonical names. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * 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 --- gnu/tests/base.scm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'gnu') 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 +;;; Copyright © 2016-2020, 2022, 2024 Ludovic Courtès ;;; Copyright © 2018 Clément Lassieur ;;; Copyright © 2022 Maxim Cournoyer ;;; Copyright © 2022 Marius Bakke @@ -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 -- cgit v1.2.3 t message (Expand)Author 2023-11-07build: Fix spelling in m4 macros....Efraim Flashner 2023-03-16build: Correct guix_system on musl libc distros....Antero Mejr 2022-01-14gnu: bootstrap: Add support for riscv64-linux....Efraim Flashner 2021-12-14build: Adjust 'courage level' of different systems....Efraim Flashner 2021-05-23gnu: bootstrap: Add support for powerpc-linux....Efraim Flashner 2021-03-23Add powerpc64le-linux as a supported Guix architecture....Chris Marusich 2021-03-17maint: Check whether Guile-zlib is recent enough....Ludovic Courtès 2021-02-04build: Add '--with-channel-commit' and related configure flags....Ludovic Courtès 2020-12-11maint: Avoid macros obsolete in Autoconf 2.70....Ludovic Courtès 2020-10-22git: Require Guile-Git 0.3.0 or later....Ludovic Courtès 2020-09-08Remove (guix json) and require Guile-JSON 4.3.0+....Ludovic Courtès 2020-08-29build: Remove check for Guile 2.2.1 bug....Ludovic Courtès 2020-08-24Use "guile-zlib" and "guile-lzlib" instead of (guix config)....Mathieu Othacehe 2020-07-20ssh: Speed up RPCs by using #:nodelay....Lars-Dominik Braun 2020-05-28doc: Remove explicit support for mips64el-linux....Efraim Flashner 2020-05-28maint: Check whether Guile-Gcrypt is recent enough....Ludovic Courtès 2020-02-22build: Depend on guile-ssh 0.12.0...Lars-Dominik Braun