;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 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-modules)
  #:use-module (guix modules)
  #:use-module ((guix build-system gnu) #:select (%gnu-build-system-modules))
  #:use-module ((guix utils) #:select (call-with-temporary-directory))
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-34)
  #: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-equal "&missing-dependency-error"
  '(something that does not exist)
  (call-with-temporary-directory
   (lambda (directory)
     (call-with-output-file (string-append directory "/foobar.scm")
       (lambda (port)
         (write '(define-module (foobar)
                   #:use-module (something that does not exist))
                port)))

     (call-with-output-file (string-append directory "/baz.scm")
       (lambda (port)
         (write '(define-module (baz)
                   #:use-module (foobar))
                port)))

     (guard (c ((missing-dependency-error? c)
                (missing-dependency-module c)))
       (source-module-closure '((baz)) (list directory)
                              #:select? (const #t))))))

(test-end)
'/guix/log/gnu/packages/busybox.scm?id=2422b1b450645af024466097326b63cd08e85e4e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-02-17 03:37:50 +0100'>2019-02-17</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=51e31aa865e5d1b272673ae94e13ffdc9f4db536'>gnu: toybox: Update to 0.8.0.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-12-12 09:27:17 +0200'>2018-12-12</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=42140fd434a333d0565617471b51323d6815ee13'>gnu: Add toybox.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2018-09-18 14:18:43 +0200'>2018-09-18</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=56c180750c8b7aca5ae82d133caac7c398c688b7'>gnu: busybox: Update to 1.29.3.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-07-19 21:29:14 +0300'>2018-07-19</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=e9ab4b40a8bf6ddf7242bc0d67b61148a4078419'>gnu: busybox: Update to 1.29.1.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2018-06-22 22:00:23 +0200'>2018-06-22</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=f7705d4cb891b262a8b5247ff251dfc409cdeb6a'>gnu: busybox: Return #t from all phases.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-06-21 10:13:39 +0300'>2017-06-21</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=6d96af5eaade0d873c5e5c1a2cc60df13cd590df'>gnu: busybox: Fix indentation.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-06-21 10:10:39 +0300'>2017-06-21</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=5897428f1c6fe4033c5b143e4dddc5040ed6827b'>gnu: busybox: Update to 1.26.2.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-06-20 18:10:35 +0530'>2017-06-20</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=148585c240f848ad08f6541ede7db3fca3411007'>gnu: Move contents of zip module into compression module.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2016-12-25 01:47:22 +0200'>2016-12-25</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=7604106f2c6d00d6c68d2c2f1af062967fa89a97'>gnu: busybox: Update to 1.26.0.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-06-30 19:11:45 +0300'>2016-06-30</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=84d08af653987f43987a5113e31b8704e24a47f2'>gnu: busybox: Use 'modify-phases'.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2016-06-30 19:11:27 +0300'>2016-06-30</span></td><td><a href='/guix/commit/gnu/packages/busybox.scm?id=2e5505e5eac3bd0170af5e62b95fadcc9aa42794'>gnu: busybox: Update to 1.25.0.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>