;;; 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")
<span title='2022-07-01 12:10:29 +0200'>2022-07-01</span></td><td><a href='/guix/commit/gnu/image.scm?id=0dab106a6af36eaebfd533d3e38c1275deb85935'>image: Add sanitizers for 'format' and 'partition-table-type'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-01 12:10:28 +0200'>2022-07-01</span></td><td><a href='/guix/commit/gnu/image.scm?id=9f530ef38a23caa1136f93cda45d396ce8fe1569'>image: Add default value for partition initializer.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-05-25 09:27:25 +0200'>2022-05-25</span></td><td><a href='/guix/commit/gnu/image.scm?id=dab819d5c4c55609efae098c8e3c2f2757c34e5b'>Move (gnu platform) and (gnu platforms ...) to guix/.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2021-12-23 10:53:59 +0100'>2021-12-23</span></td><td><a href='/guix/commit/gnu/image.scm?id=dcc843a716807768c446983ad3406211e28e5f3d'>image: Add a shared-network? field.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-12-23 10:53:59 +0100'>2021-12-23</span></td><td><a href='/guix/commit/gnu/image.scm?id=594e9428c5ece0ccba1f57810adedefee58ca4cc'>image: Add a shared-store? field.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-11-12 12:06:58 +0000'>2021-11-12</span></td><td><a href='/guix/commit/gnu/image.scm?id=096a2bf8c59a955c634cc838e7f7111941c07b37'>image: Support generating GPT images via `partition-table-type`.</a><span class='msg-avail'>...</span></td><td>Ryan Sundberg</td></tr>
<tr><td><span title='2021-10-11 12:05:39 +0000'>2021-10-11</span></td><td><a href='/guix/commit/gnu/image.scm?id=d5073fd113c621fe0b55382f7dd336ee118e759f'>gnu: Add platform support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-02-17 10:55:36 +0100'>2021-02-17</span></td><td><a href='/guix/commit/gnu/image.scm?id=4cce7610eb992fcf168be7cb05ec2b1b2020171e'>image: Export image? procedure.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-09-30 10:47:59 +0200'>2020-09-30</span></td><td><a href='/guix/commit/gnu/image.scm?id=99d036ce8402326352c8aa181d89c6d0c7ce85a8'>image: Add image-type support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-06-24 20:24:34 +0200'>2020-06-24</span></td><td><a href='/guix/commit/gnu/image.scm?id=b904b59ce592c89dfb4675a8c06757afed6738a0'>image: Move hurd image definition to a dedicated file.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-06-13 15:20:52 +0200'>2020-06-13</span></td><td><a href='/guix/commit/gnu/image.scm?id=f292d4719dead6a615187f325fbc0bb0e99d10b4'>image: Add 'target' support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-05-26 17:16:42 +0200'>2020-05-26</span></td><td><a href='/guix/commit/gnu/image.scm?id=bd3716f6fee127562935d86ff7f641197366769c'>image: Add partition file-system options support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-05-26 13:06:37 +0200'>2020-05-26</span></td><td><a href='/guix/commit/gnu/image.scm?id=1dd7b87f101ce99b37be5c769904c1aa2f6a0615'>image: Set offset default to zero.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-05-26 09:57:06 +0200'>2020-05-26</span></td><td><a href='/guix/commit/gnu/image.scm?id=1b4fa7851b39f087a6433e8b5e22c479ca1da289'>image: Add partition offset support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-05-05 16:13:53 +0200'>2020-05-05</span></td><td><a href='/guix/commit/gnu/image.scm?id=f19cf27c2b9ff92e2c0fd931ef7fde39c376adaa'>image: Add a new API.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>