;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.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 (test-home-services)
  #:use-module (gnu services)
  #:use-module (gnu home services)
  #:use-module (guix diagnostics)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-64)
  #:use-module (ice-9 match))

(test-begin "home-services")

(test-assert "fold-home-service-types"
  (match (fold-home-service-types cons '())
    (() #f)
    (lst (and (every service-type? lst)
              (every (lambda (type)
                       (let ((location (service-type-location type)))
                         (string-contains (location-file location)
                                          "gnu/home")))
                     lst)))))

(test-eq "lookup-service-types"
  home-files-service-type
  (and (null? (lookup-home-service-types 'does-not-exist-at-all))
       (match (lookup-home-service-types 'home-files)
         ((one) one)
         (x x))))

(test-end)
option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</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=9563dd5599cbd88f33977de5b738a29b8ad57680'>root</a>/<a href='/guix/log/THANKS?id=9563dd5599cbd88f33977de5b738a29b8ad57680'>THANKS</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/THANKS?id=9563dd5599cbd88f33977de5b738a29b8ad57680&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2016-07-18 06:56:29 +0200'>2016-07-18</span></td><td><a href='/guix/commit/THANKS?id=1d743e6bdda65e783087ad8b9b4289d0ef581a5a'>Thank Thomas.</a></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2015-11-23 17:48:35 +0100'>2015-11-23</span></td><td><a href='/guix/commit/THANKS?id=160b0ef3fd87c73b140f4480a521ad8c80475ab3'>Thank Jan.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-11-17 09:44:52 +0100'>2015-11-17</span></td><td><a href='/guix/commit/THANKS?id=87450b12744bf1f508b6fd4ee11c00af35fcc4ee'>Thank Chris.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-10-09 20:57:24 +0200'>2015-10-09</span></td><td><a href='/guix/commit/THANKS?id=28eb956dfeb8b759e690cf3e30dfe85788561778'>Thank Chris.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-09-20 22:06:48 +0200'>2015-09-20</span></td><td><a href='/guix/commit/THANKS?id=8fcac19975b163e0e5b98d27a52cb7c541bf94d9'>Thank Petter.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-08-27 23:34:23 +0200'>2015-08-27</span></td><td><a href='/guix/commit/THANKS?id=25ae74cffaa95cc4e509e3363f6f6525ddc21672'>Thank Eric Hanchrow.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-23 09:42:24 +0200'>2015-07-23</span></td><td><a href='/guix/commit/THANKS?id=015878fdbbfe5e30474bea229c014677e04cc27f'>Thank Anders.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-22 23:47:35 +0200'>2015-07-22</span></td><td><a href='/guix/commit/THANKS?id=0e9f9f7bc23a7e7f2390eb1bbb09f36f33cda534'>Thank Malcolm.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-22 22:56:42 +0200'>2015-07-22</span></td><td><a href='/guix/commit/THANKS?id=31ea3ebb0570c070df578d5983bdcdce117e4376'>Thank Dave.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-04 12:13:01 +0300'>2015-07-04</span></td><td><a href='/guix/commit/THANKS?id=e7c48ee9519aa5cd094f3326a4caeccba072e9fd'>Clean up 'THANKS' and 'AUTHORS'.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2015-06-07 18:15:40 +0200'>2015-06-07</span></td><td><a href='/guix/commit/THANKS?id=a647e0b8eef9931a46aded4c4d71e0413cc84340'>Thank Thomas.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-05-01 00:06:18 +0200'>2015-05-01</span></td><td><a href='/guix/commit/THANKS?id=0aaca4354c68a21b01ce5fcd7fb7f820e58fc3cb'>Thank Joshua.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-04-14 23:20:26 +0200'>2015-04-14</span></td><td><a href='/guix/commit/THANKS?id=a0bcaefd0885fdca898c3e60dc22c00a581c9b30'>Thank Pjotr.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-24 00:04:37 +0100'>2015-02-24</span></td><td><a href='/guix/commit/THANKS?id=31567c427409b908ac496e48419017022e9212a2'>Thank Daniel.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-07 23:17:33 +0100'>2015-02-07</span></td><td><a href='/guix/commit/THANKS?id=cce629c027f26275d2fd7b66e43669ccab6eb207'>Thank Andrei.</a></td><td>Ludovic Courtès</td></tr>