;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 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-modules)
  #:use-module (guix modules)
  #:use-module ((guix build-system gnu) #:select (%gnu-build-system-modules))
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-64))

(test-begin "modules")

(test-assert "closure of (guix build gnu-build-system)"
  (lset= equal?
         (live-module-closure '((guix build gnu-build-system)))
         (source-module-closure '((guix build gnu-build-system)))
         %gnu-build-system-modules
         (source-module-closure %gnu-build-system-modules)
         (live-module-closure %gnu-build-system-modules)))

(test-assert "closure of (gnu build install)"
  (lset= equal?
         (live-module-closure '((gnu build install)))
         (source-module-closure '((gnu build install)))))

(test-assert "closure of (gnu build vm)"
  (lset= equal?
         (live-module-closure '((gnu build vm)))
         (source-module-closure '((gnu build vm)))))

(test-end)
'>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=0f4655933121af9cf46df35677702d953c270907'>root</a>/<a href='/guix/log/gnu?id=0f4655933121af9cf46df35677702d953c270907'>gnu</a>/<a href='/guix/log/gnu/home?id=0f4655933121af9cf46df35677702d953c270907'>home</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/gnu/home?id=0f4655933121af9cf46df35677702d953c270907&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-09-14 18:25:11 +0300'>2022-09-14</span></td><td><a href='/guix/commit/gnu/home?id=6cdde65bb53b439f25f007df238f549ba2debc72'>home: shepherd: Add daemonize? option to configuration.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-09-12 08:43:08 +0300'>2022-09-12</span></td><td><a href='/guix/commit/gnu/home?id=70d58d1556fb1d16d674cf697bba1c5ce9c1767c'>home: shepherd: Add shepherd/init.scm to XDG_CONFIG_HOME.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-25 00:10:32 -0400'>2022-08-25</span></td><td><a href='/guix/commit/gnu/home?id=ee08277a70d29b6d707524a4e17620f50b87adf4'>services: Use the new maybe/unset API.</a><span class='msg-avail'>...</span></td><td>Attila Lendvai</td></tr>
<tr><td><span title='2022-08-19 18:55:40 +0300'>2022-08-19</span></td><td><a href='/guix/commit/gnu/home?id=ffc391500ac7eae1ef100d8d36f6c01f4f606170'>home: Use absolute path for home in activation script.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-10 09:10:45 -0400'>2022-08-10</span></td><td><a href='/guix/commit/gnu/home?id=d9a0ccf13f461335bd23abebeec7af981cae7be8'>home: ssh: Fix invalid value error for address-family.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-08-05 15:28:03 +0200'>2022-08-05</span></td><td><a href='/guix/commit/gnu/home?id=3b1510b8b9033068e4f6fa842c674824fdadc7a8'>home: Use warning instead of display.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-05 15:28:02 +0200'>2022-08-05</span></td><td><a href='/guix/commit/gnu/home?id=b57c656f72cee42ebbd78fe2267689aecfbd970e'>home: xdg: Skip mkdir XDG_RUNTIME_DIR in activation script.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-05 15:28:02 +0200'>2022-08-05</span></td><td><a href='/guix/commit/gnu/home?id=a80edc0d82c104d22607da5c44225d9105c3e1cf'>home: xdg: Use a single @ instead of @@.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-02 16:53:29 +0800'>2022-08-02</span></td><td><a href='/guix/commit/gnu/home?id=9355d463290bcc29b0885e18c9b19258934ea0a2'>home: Add explicit dependency on env to activation script.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-07-14 01:05:34 +0200'>2022-07-14</span></td><td><a href='/guix/commit/gnu/home?id=af4c103595a725194318f40fc5aba110772ff417'>home: services: environment-variables: Double-quote values.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-14 01:05:34 +0200'>2022-07-14</span></td><td><a href='/guix/commit/gnu/home?id=8af749224fd69daee5b67295186c77becb1a4479'>home: services: shells: Double-quote environment variable values.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-14 01:05:34 +0200'>2022-07-14</span></td><td><a href='/guix/commit/gnu/home?id=9e4cbb307665f061d6e8bc75660ae9421886f6b2'>home: services: shell: Do not use "setup" as a verb.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-14 01:05:34 +0200'>2022-07-14</span></td><td><a href='/guix/commit/gnu/home?id=7a6302acb015c5df3aa5007792887149978355db'>home: services: Fix typo.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-12 01:17:46 +0200'>2022-07-12</span></td><td><a href='/guix/commit/gnu/home?id=8d922504b22b81f99bf2dcbb9f15498ad513040a'>gnu: home: Add Guix channels service.</a><span class='msg-avail'>...</span></td><td>Reily Siegel</td></tr>
<tr><td><span title='2022-06-29 20:40:36 +0200'>2022-06-29</span></td><td><a href='/guix/commit/gnu/home?id=75a520cca62ea105a6fbb7f1d74b3a4ef439cd73'>home: services: shells: Export Fish environment variables.</a><span class='msg-avail'>...</span></td><td>(</td></tr>
<tr><td><span title='2022-06-17 23:39:32 +0200'>2022-06-17</span></td><td><a href='/guix/commit/gnu/home?id=7f208f68dea828fe02718ca8ce81d5975136cff8'>home: Add OpenSSH service.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-06-15 00:25:21 +0200'>2022-06-15</span></td><td><a href='/guix/commit/gnu/home?id=8cb1a49a3998c39f315a4199b7d4a121a6d66449'>services: configuration: Use *unspecified* instead of 'disabled.</a><span class='msg-avail'>...</span></td><td>Attila Lendvai</td></tr>
<tr><td><span title='2022-06-04 12:04:24 +0200'>2022-06-04</span></td><td><a href='/guix/commit/gnu/home?id=8eb17cebc1027b5ae1c4047c704b92ad73b783fd'>home: services: Add 'lookup-home-service-types' procedure.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>