;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 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-discovery)
  #:use-module (guix discovery)
  #:use-module (guix build-system)
  #:use-module (guix utils)
  #:use-module (srfi srfi-64)
  #:use-module (ice-9 match))

(define %top-srcdir
  (dirname (search-path %load-path "guix.scm")))

(test-begin "discovery")

(test-assert "scheme-modules"
  (match (map module-name (scheme-modules %top-srcdir "guix/import"))
    ((('guix 'import _ ...) ..1)
     #t)))

(test-assert "scheme-modules recurses in symlinks to directories"
  (call-with-temporary-directory
   (lambda (directory)
     (mkdir (string-append directory "/guix"))
     (symlink (string-append %top-srcdir "/guix/import")
              (string-append directory "/guix/import"))

     ;; DIRECTORY/guix/import is a symlink but we want to make sure
     ;; 'scheme-modules' recurses into it.
     (match (map module-name (scheme-modules directory))
       ((('guix 'import _ ...) ..1)
        #t)))))

(test-equal "scheme-modules, non-existent directory"
  '()
  (scheme-modules "/does/not/exist"))

(test-assert "all-modules"
  (match (map module-name
              (all-modules `((,%top-srcdir . "guix/build-system"))))
    ((('guix 'build-system names) ..1)
     names)))

(test-assert "fold-module-public-variables"
  (let ((modules (all-modules `((,%top-srcdir . "guix/build-system")))))
    (match (fold-module-public-variables (lambda (obj result)
                                           (if (build-system? obj)
                                               (cons obj result)
                                               result))
                                         '()
                                         modules)
      (((? build-system? bs) ..1)
       bs))))

(test-end "discovery")
ass='left'>Commit message (<a href='/guix/log/gnu/build/activation.scm?id=e7777475cf0375f4224c97ec894f8b25e1ebae28&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-02-19 18:42:12 +0100'>2024-02-19</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=27ee6f06d0ecab58ca3b739c911bacefda440177'>services: activation: Ensure /run existence.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/activation.scm (activation-script): Ensure /var/run existence.
* gnu/build/install.scm (evaluate-populate-directive)
[directives]: Remove directory /run.

Change-Id: I19ca8e7605c0cff598ab89077a94e20390ba27b0
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Nicolas Graves</td></tr>
<tr><td><span title='2023-08-20 02:00:00 +0200'>2023-08-20</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=5a2c3352d8f8a08a5ba01542a3f282799e503d33'>Revert "gnu: system: Add home-directory-permissions field to &lt;user-account&gt;."</a><span class='msg-avail'>...<span class='msg-tooltip'>This reverts commit e9a5eebc785cb843034b38c5c5a6dd10904bdf2a, which
as far as I can tell breaks system roll-backs thusly:

[...]
In gnu/build/accounts.scm:
   239:27  3 (_ #&lt;&lt;password-entry&gt; name: "root" password: "x" uid: 0 gid: 0 real-name: "System &gt;)
In unknown file:
           2 (string-join ("root" "x" "0" "0" "System administrator" "/root" #t) ":" #&lt;undefined&gt;)
In ice-9/boot-9.scm:
  1685:16  1 (raise-exception _ #:continuable? _)
  1685:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure string-append: Wrong type (expecting string): #t
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2023-08-25 15:12:54 +0200'>2023-08-25</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=e9a5eebc785cb843034b38c5c5a6dd10904bdf2a'>gnu: system: Add home-directory-permissions field to &lt;user-account&gt;.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/accounts.scm (&lt;user-account&gt;)[home-directory-permissions]: New
field.
(user-account-home-directory-permissions): New accessor.
* gnu/build/activation.scm (activate-users+groups): Use home directory
permission bits from the user account object.
* doc/guix.texi (User Accounts): Document new field.

Signed-off-by: Josselin Poiret &lt;dev@jpoiret.xyz&gt;
</span></span></td><td>David Thompson</td></tr>
<tr><td><span title='2022-12-17 17:08:50 +0100'>2022-12-17</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=4d94cdf69889043dd8d9b1305f5f3946ec0f8ff6'>activation: Firmware activation handles missing support in kernel.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/activation.scm (activate-firmware): Check if firmware loading is
enabled before attempting to use it.
</span></span></td><td>Marius Bakke</td></tr>