;;; 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>
<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=5e8aec2cf3806a019f4012ad9052bbef9aacb010'>root</a>/<a href='/guix/log/m4?id=5e8aec2cf3806a019f4012ad9052bbef9aacb010'>m4</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/m4?id=5e8aec2cf3806a019f4012ad9052bbef9aacb010&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2015-12-01 00:02:54 +0200'>2015-12-01</span></td><td><a href='/guix/commit/m4?id=dfdb15d9c2badaebfd6a047b303b687ff251256a'>build: Fix detection of ARM systems.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-11-25 17:01:02 +0100'>2015-11-25</span></td><td><a href='/guix/commit/m4?id=968ae903189c6c4a41c0e2cddf41ffc5a8c32f93'>build: Reject ARMv6 systems.</a><span class='msg-avail'>...</span></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/m4?id=ca34fc317f7a812285805f0cc6b41ccae6d57434'>build: Fix libgcrypt detection on FHS systems.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-10-06 23:51:04 +0200'>2015-10-06</span></td><td><a href='/guix/commit/m4?id=dd01fecd23a4ded46b99a51dc08ac5d964dbcd53'>build: Automatically determine libgcrypt's file name.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-08-27 00:49:23 +0200'>2015-08-27</span></td><td><a href='/guix/commit/m4?id=12e5b26643e2269e8f30d8399886d4302c3c09d1'>build: Do not build (guix build syscalls) if 'mount' is missing from libc.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-05-19 16:09:58 +0200'>2015-05-19</span></td><td><a href='/guix/commit/m4?id=368d08f74744ed5d5ef5ef747e86bddbfaa47312'>build: Make sure $CXX supports C++11.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-24 23:43:03 +0100'>2015-02-24</span></td><td><a href='/guix/commit/m4?id=2178ed66f7ae8f793078c7e392af4bf1fb472968'>build: Reject or warn against file name length limit overruns.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-07 21:47:51 -0500'>2015-01-07</span></td><td><a href='/guix/commit/m4?id=aa1e19477b2d78884fc500fef497cd6677604d9b'>gnu: Add bootstrap binaries for 'armhf-linux'.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2014-01-24 00:01:50 +0100'>2014-01-24</span></td><td><a href='/guix/commit/m4?id=49e6291a7a257f89f01644423f1b685778b8862a'>Add 'guix offload' as a daemon build hook.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-11-03 23:26:58 -0500'>2013-11-03</span></td><td><a href='/guix/commit/m4?id=2ebab8e909b377d58bb52c33d3a31d121a0f64de'>Add mips64el-linux to the list of supported systems.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2013-07-17 11:05:19 +0200'>2013-07-17</span></td><td><a href='/guix/commit/m4?id=1959fb04dc4608206bdcc6908ca3f0d71a43eda8'>build: Provide a replacement (srfi srfi-37) when the user's one is broken.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-07-05 21:54:52 +0200'>2013-07-05</span></td><td><a href='/guix/commit/m4?id=b97556d75cb5f4d1d665320f7d1217ce9189460d'>build: Bail out on unsupported platforms; add `--with-courage'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-07-05 14:14:21 +0200'>2013-07-05</span></td><td><a href='/guix/commit/m4?id=eb25a30a42fcfa5e3fec9c87b3f8a2ff20d01c3c'>build: Correctly determine the system type for non-Linux systems.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-05-10 00:36:00 +0200'>2013-05-10</span></td><td><a href='/guix/commit/m4?id=9c7dd33a48858b7cb3cc81a99ef84048d7584cdf'>build: Make sure the user's Guile has all the required features.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-01-10 22:18:16 +0100'>2013-01-10</span></td><td><a href='/guix/commit/m4?id=5fedc65b0fa807bafde46b4071e9e324ef8c0ac6'>build: Print the Guix system type.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2013-01-06 18:43:58 +0100'>2013-01-06</span></td><td><a href='/guix/commit/m4?id=2357f85032de5457c28586794fa0fb09488dc6c1'>Update a few more license headers.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>