tests/modules.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
   3 ;;;
   4 ;;; This file is part of GNU Guix.
   5 ;;;
   6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; GNU Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (test-modules)
  20   #:use-module (guix modules)
  21   #:use-module ((guix build-system gnu) #:select (%gnu-build-system-modules))
  22   #:use-module ((guix utils) #:select (call-with-temporary-directory))
  23   #:use-module (srfi srfi-1)
  24   #:use-module (srfi srfi-34)
  25   #:use-module (srfi srfi-64))
  26
  27 (test-begin "modules")
  28
  29 (test-assert "closure of (guix build gnu-build-system)"
  30   (lset= equal?
  31          (live-module-closure '((guix build gnu-build-system)))
  32          (source-module-closure '((guix build gnu-build-system)))
  33          %gnu-build-system-modules
  34          (source-module-closure %gnu-build-system-modules)
  35          (live-module-closure %gnu-build-system-modules)))
  36
  37 (test-assert "closure of (gnu build install)"
  38   (lset= equal?
  39          (live-module-closure '((gnu build install)))
  40          (source-module-closure '((gnu build install)))))
  41
  42 (test-assert "closure of (gnu build vm)"
  43   (lset= equal?
  44          (live-module-closure '((gnu build vm)))
  45          (source-module-closure '((gnu build vm)))))
  46
  47 (test-equal "&missing-dependency-error"
  48   '(something that does not exist)
  49   (call-with-temporary-directory
  50    (lambda (directory)
  51      (call-with-output-file (string-append directory "/foobar.scm")
  52        (lambda (port)
  53          (write '(define-module (foobar)
  54                    #:use-module (something that does not exist))
  55                 port)))
  56
  57      (call-with-output-file (string-append directory "/baz.scm")
  58        (lambda (port)
  59          (write '(define-module (baz)
  60                    #:use-module (foobar))
  61                 port)))
  62
  63      (guard (c ((missing-dependency-error? c)
  64                 (missing-dependency-module c)))
  65        (source-module-closure '((baz)) (list directory)
  66                               #:select? (const #t))))))
  67
  68 (test-end)