;;; 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")
input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='content'><div id='summary'><pre>
scheme-mode

(package...
 &quot;(define-public &quot; (s name)
 n&gt; &quot;(package&quot;
 n  &gt; &quot;(name \&quot;&quot; (s name) &quot;\&quot;)&quot;
 n  &gt; &quot;(version \&quot;&quot; p &quot;\&quot;)&quot;
 n  &gt; &quot;(source origin...)&quot;
 n  &gt; &quot;(build-system &quot; (p &quot;gnu&quot;) &quot;-build-system)&quot;
 n  &gt; &quot;(home-page \&quot;&quot; p &quot;\&quot;)&quot;
 n  &gt; &quot;(synopsis \&quot;&quot; p &quot;\&quot;)&quot;
 n  &gt; &quot;(description \&quot;&quot; p &quot;\&quot;)&quot;
 n  &gt; &quot;(license license:&quot; (p &quot;unknown&quot;) &quot;)))&quot; n)

(origin...
 &quot;(origin&quot;
 n&gt; &quot;(method &quot; (p &quot;url-fetch&quot; method) &quot;)&quot;
 n&gt; &quot;(uri &quot; (cl-case (and method (intern method))
              (git-fetch &quot;git-reference...&quot;)
              (svn-fetch &quot;svn-reference...&quot;)
              (hg-fetch  &quot;hg-reference...&quot;)
              (cvs-fetch &quot;cvs-reference...&quot;)
              (bzr-fetch &quot;bzr-reference...&quot;)
              (otherwise &quot;\&quot;https://...\&quot;&quot;))
 &quot;)&quot;
 n&gt;
 (cl-case (and method (intern method))
   (git-fetch
    (insert &quot;(file-name (git-file-name name version))&quot;)
    (newline)
    (indent-according-to-mode))
   (hg-fetch
    (insert &quot;(file-name (hg-file-name name version))&quot;)
    (newline)
    (indent-according-to-mode))
   (svn-fetch
    (insert &quot;(file-name (string-append name \&quot;-\&quot; version \&quot;-checkout\&quot;))&quot;)
    (newline)
    (indent-according-to-mode))
   (cvs-fetch
    (insert &quot;(file-name (string-append name \&quot;-\&quot; version \&quot;-checkout\&quot;))&quot;)
    (newline)
    (indent-according-to-mode))
   (bzr-fetch
    (insert &quot;(file-name (string-append name \&quot;-\&quot; version \&quot;-checkout\&quot;))&quot;)
    (newline)
    (indent-according-to-mode))
   (t          &quot;&quot;))
 &gt; &quot;(sha256&quot;
 n &gt; &quot;(base32 \&quot;&quot;
 ;; hash of an empty directory
 (p &quot;0sjjj9z1dhilhpc8pq4154czrb79z9cm044jvn75kxcjv6v5l2m5&quot;) &quot;\&quot;)))&quot;)

(git-reference...
 &quot;(git-reference&quot;
 n&gt; &quot;(url \&quot;&quot; p &quot;\&quot;)&quot;
 n&gt; &quot;(commit &quot; (p &quot;commit&quot;) &quot;))&quot;)

(svn-reference...
 &quot;(svn-reference&quot;
 n&gt; &quot;(url \&quot;&quot; p &quot;\&quot;)&quot;
 n&gt; &quot;(revision &quot; (p &quot;revision&quot;) &quot;))&quot;)

(cvs-reference...
 &quot;(cvs-reference&quot;
 n&gt; &quot;(root-directory \&quot;&quot; p &quot;\&quot;)&quot;
 n&gt; &quot;(module \&quot;&quot; p &quot;\&quot;)&quot;
 n&gt; &quot;(revision \&quot;&quot; p &quot;\&quot;))&quot;)

(hg-reference...
 &quot;(hg-reference&quot;
 n&gt; &quot;(url \&quot;&quot; p &quot;\&quot;)&quot;
 n&gt; &quot;(changeset &quot; (p &quot;changeset&quot;) &quot;))&quot;)

(bzr-reference...
 &quot;(bzr-reference&quot;
 n&gt; &quot;(url \&quot;&quot; p &quot;\&quot;)&quot;
 n&gt; &quot;(revision &quot; (p &quot;revision&quot;) &quot;))&quot;)

(:phases\ &quot;#:phases (modify-phases %standard-phases&quot;
          n&gt; p &quot;)&quot;)

(add-before\ &quot;(add-before &apos;&quot; p &quot; &apos;&quot; p
             n &gt; p &quot;)&quot;)
(add-after\ &quot;(add-after &apos;&quot; p &quot; &apos;&quot; p
            n &gt; p &quot;)&quot;)
(replace\ &quot;(replace &apos;&quot; p &quot; &quot; p&quot;)&quot;)
</pre>
</div></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>