;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; 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 lightdm)
  #:use-module (guix diagnostics)
  #:use-module (gnu services lightdm)
  #:use-module (srfi srfi-64))

;;; Tests for the (gnu services lightdm) module.

;;; Access some internals for whitebox testing.
(define validate-lightdm-configuration (@@ (gnu services lightdm)
                                           validate-lightdm-configuration))

(test-begin "lightdm-service")

(test-equal "error on missing greeter"
  'ok
  (catch 'quit
    (lambda ()
      (validate-lightdm-configuration (lightdm-configuration (greeters '()))))
    (lambda _
      'ok)))

(test-equal "error when a greeter has multiple configurations"
  'ok
  (catch 'quit
    (lambda ()
      (lightdm-configuration
       (greeters (list (lightdm-gtk-greeter-configuration
                        (theme-name "boring"))
                       (lightdm-gtk-greeter-configuration
                        (theme-name "blue"))))))
    (lambda _
      'ok)))

(test-end "lightdm-service")

</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=a5b00d2733d817df35c54749789be69bd53f66fd'>root</a>/<a href='/guix/log/COPYING?id=a5b00d2733d817df35c54749789be69bd53f66fd'>COPYING</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/COPYING?id=a5b00d2733d817df35c54749789be69bd53f66fd&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
lass='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/file-systems.scm?id=58ade30228ec692150d7ae1babdd013a5c8b2034&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2017-09-14 00:10:13 +0200'>2017-09-14</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=8f3b63b5d73c0b49139c8a20b7576732abfdeeb8'>uuid: Move tests to 'tests/uuid.scm'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/file-systems.scm ("uuid-&gt;string", "string-&gt;uuid")
("uuid", "uuid, syntax error"): Move to...
* tests/uuid.scm: ... here.  New file.
("uuid, ISO-9660, format preserved"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-09-14 00:10:13 +0200'>2017-09-14</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=2ed1f4a52d8bec2c18a9c92cf4e7caf93aeb40fc'>uuid: Adjust tests.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 9b336338cdc0e46a3bf7a2913c2f61cd2410c4d6.

* tests/file-systems.scm ("uuid"): Add call to 'uuid-bytevector'.
("uuid, syntax error"): Add 'dce to the expected form.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-03-21 22:33:07 +0100'>2017-03-21</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=278d486b0c0e3ec0378f6a2ccf6946fb176d088b'>file-systems: Do not use (gnu packages …).</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes a regression introduced in
7208995426714c9fc3ad59cadc3cc0f52df0f018 whereby (gnu system
file-systems) would pull in (gnu packages …) module, which in turn
breaks when importing things like (gnu build shepherd).

* gnu/system/file-systems.scm (file-system-type-predicate): Export.
(file-system-packages): Move to...
* gnu/system/linux-initrd.scm (file-system-packages): ... here.  Add
docstring.
* gnu/services/base.scm: Use it.
* tests/file-systems.scm ("does not pull (gnu packages …)"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-04 02:13:43 +0100'>2017-02-04</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=ad167d028e97dca1937ad6ae3d89d2c4de997754'>file-systems: Remove dependency on (guix store).</a><span class='msg-avail'>...<span class='msg-tooltip'>(gnu system file-systems) is used on the "build" side since commit
5970e8e248f6327c41c83b86bb2c89be7c3b1b4e.

* gnu/system/file-systems.scm: Remove dependency on (guix store).
(%store-prefix): New procedure.
* tests/file-systems.scm ("does not pull (guix config)"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-16 23:27:23 +0100'>2017-01-16</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=384344198dcaa97847e66d3dd82f279ede08d690'>file-systems: 'file-system-needed-for-boot?' is #t for parents of the store.</a><span class='msg-avail'>...<span class='msg-tooltip'>Suggested by John Darrington &lt;john@darrington.wattle.id.au&gt;.

* gnu/system/file-systems.scm (%not-slash): New variable.
(file-prefix?): New procedure.
(file-system-needed-for-boot?): Use it to check whether FS holds the
store.
* tests/file-systems.scm ("file-system-needed-for-boot?"): New test.
* gnu/tests/install.scm (%separate-store-os)[file-systems]: Remove
'needed-for-boot?' field for "/gnu".
</span></span></td><td>Ludovic Courtès</td></tr>