;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Brian Cully <bjc@spork.org>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(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")
7579ef0d916ecf23fe832c9d17802f'>gnu: Replace hard-coded "CC=gcc" with CC-FOR-TARGET calls.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/admin.scm (cbatticon)[arguments]&lt;#:make-flags&gt;: Use
CC-FOR-TARGET.
* gnu/packages/assembly.scm (dev86)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/crypto.scm (signify, keyutils, ssss, libscrypt, enchive)
[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/emacs-xyz.scm (emacs-emacsql, emacs-telega)[arguments]
&lt;#:phases&gt;: Likewise.
* gnu/packages/gnupg.scm (pgpdump)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/image-viewers.scm (feh, imv)[arguments]&lt;#:make-flags&gt;:
Likewise.
* gnu/packages/image.scm (libjxr, giflib, freeimage)[arguments]
&lt;#:make-flags&gt;: Likewise.
* gnu/packages/irc.scm (ii, sic)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/lua.scm (make-lua-expat, make-lua-ossl, make-lua-sec)
(make-lua-cqueues, make-lua-lgi, lua-resty-signal)[arguments]
&lt;#:make-flags&gt;: Likewise.
* gnu/packages/networking.scm (httping, pixiewps, sslh, nethogs, spiped)
(can-utils, hcxtools, batctl)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/pdf.scm (fbida)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/ssh.scm (endlessh)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/toys.scm (nyancat)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/upnp.scm (miniupnpc)[arguments]&lt;#:make-flags&gt;: Likewise.
* gnu/packages/xdisorg.scm (bemenu, xbanish, sxhkd, xcape, xssproxy)
(xrandr-invert-colors, hsetroot, xsettingsd)[arguments]&lt;#:make-flags&gt;:
Likewise.

Signed-off-by: Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
</span></span></td><td>Maxime Devos</td></tr>
<tr><td><span title='2021-04-22 15:02:51 +0200'>2021-04-22</span></td><td><a href='/guix/commit/gnu/packages/upnp.scm?id=78fb1dbca21ecf2ee3084f89d0b7ddb2e615a3a3'>gnu: libupnp: Update to 1.14.6.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/upnp.scm (libupnp): Update to 1.14.6.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-04-07 21:38:21 +0200'>2021-04-07</span></td><td><a href='/guix/commit/gnu/packages/upnp.scm?id=2b605ef3b145ec136530f08ee7aa27382aa64b46'>gnu: libupnp: Update to 1.14.5 [fixes CVE-2021-28302].</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/upnp.scm (libupnp): Update to 1.14.5.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-03-30 23:13:39 +0200'>2021-03-30</span></td><td><a href='/guix/commit/gnu/packages/upnp.scm?id=4b8c687a7c1addb6c81e0a6fad45b7736bf8a6e1'>gnu: libupnp: Update to 1.14.4.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/upnp.scm (libupnp): Update to 1.14.4.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>