;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2023 Brian Cully ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (tests services pam-mount) #:use-module (gnu services pam-mount) #:use-module (gnu system pam) #:use-module (gnu services) #:use-module (gnu services configuration) #:use-module (guix derivations) #:use-module (guix gexp) #:use-module (guix grafts) #:use-module (guix store) #:use-module (guix tests) #:use-module (ice-9 match) #:use-module (srfi srfi-1) #:use-module (srfi srfi-64)) (define pam-mount-volume-fields (@@ (gnu services pam-mount) pam-mount-volume-fields)) (define field-name->tag (@@ (gnu services pam-mount) field-name->tag)) (define pam-mount-volume->sxml (@@ (gnu services pam-mount) pam-mount-volume->sxml)) (test-begin "services-pam-mount") (test-group "field-name->tag" (let ((field-map '((user-name user) (user-id uid) (primary-group pgrp) (group-id gid) (secondary-group sgrp) (file-system-type fstype) (no-mount-as-root? noroot) (server server) (file-name path) (mount-point mountpoint) (options options) (ssh? ssh) (cipher cipher) (file-system-key-cipher fskeycipher) (file-system-key-hash fskeyhash) (file-system-key-file-name fskeypath)))) (test-equal "all fields accounted for" (map car field-map) (map configuration-field-name pam-mount-volume-fields)) (for-each (match-lambda ((field-name tag-name) (test-eq (format #f "~a -> ~a" field-name tag-name) (field-name->tag field-name) tag-name))) field-map))) (let ((tmpfs-volume (pam-mount-volume (secondary-group "users") (file-system-type "tmpfs") (mount-point "/run/user/%(USERUID)") (options "someoptions")))) (test-equal "tmpfs" '(volume (@ (sgrp "users") (fstype "tmpfs") (mountpoint "/run/user/%(USERUID)") (options "someoptions"))) (pam-mount-volume->sxml tmpfs-volume))) (test-end "services-pam-mount") ile. * gnu/local.mk (INSTALLER_MODULES): Add it. * po/guix/POTFILES.in: Add it. * gnu/installer.scm (installer-steps): Pass #:pci-database to the 'welcome' step procedure. * gnu/installer/newt.scm (welcome-page): Add #:pci-database and pass it to 'run-welcome-page'. * gnu/installer/newt/welcome.scm (check-hardware-support): Add #:pci-database. Enumerate unsupported PCI devices and run an error page when unsupported devices are found. (run-welcome-page): Add #:pci-database and pass it to 'check-hardware-support' and to the recursive call. * gnu/installer/record.scm (<installer>)[welcome-page]: Adjust comment. * doc/guix.texi (Hardware Considerations): Mention it. Ludovic Courtès 2022-11-15installer: Warn about hardware support after the welcome page....Ludovic Courtès 2022-11-02installer: Skip the backtrace page on user abort....Mathieu Othacehe 2022-11-02installer: Add core dump support....Mathieu Othacehe 2022-10-25installer: welcome: Warn when uvesafb gets used....pelzflorian (Florian Pelz)