mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
05a9d1f378
This code duplicates the (gnu system image) and (gnu build image) code. Using VM for image generation is not needed, not portable and really slow. Remove all the VM image generation code to make sure that only the image API is used. * gnu/build/vm.scm: Remove it. Move the qemu-command procedure to ... * gnu/build/marionette.scm: ... here. * gnu/local.mk (GNU_SYSTEM_MODULES): Adapt it. * tests/modules.scm: Ditto. * gnu/tests/install.scm: Ditto. * gnu/system/vm.scm: Adapt it and remove expression->derivation-in-linux-vm, qemu-img, system-qemu-image/shared-store and system-docker-image procedures. * doc/guix.texi (G-Expressions): Adapt it.
68 lines
2.5 KiB
Scheme
68 lines
2.5 KiB
Scheme
;;; 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 image)"
|
|
(lset= equal?
|
|
(live-module-closure '((gnu build image)))
|
|
(source-module-closure '((gnu build image)))))
|
|
|
|
(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)
|