X-Git-Url: http://git.hcoop.net/jackhill/guix/guix.git/blobdiff_plain/ab7010af1f1077c056529769a53a380147c3933f..12580eb435b4a43be76ad3b900657ec67a70fee7:/gnu/tests.scm diff --git a/gnu/tests.scm b/gnu/tests.scm index cc72e56858..3b10a6d5ac 100644 --- a/gnu/tests.scm +++ b/gnu/tests.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ludovic Courtès ;;; Copyright © 2017 Mathieu Othacehe ;;; Copyright © 2017 Tobias Geerinckx-Rice ;;; @@ -20,7 +20,7 @@ (define-module (gnu tests) #:use-module (guix gexp) - #:use-module (guix utils) + #:use-module (guix diagnostics) #:use-module (guix records) #:use-module ((guix ui) #:select (warn-about-load-error)) #:use-module (gnu bootloader) @@ -45,6 +45,7 @@ marionette-operating-system define-os-with-source + %simple-os simple-operating-system system-test @@ -61,7 +62,7 @@ ;;; ;;; This module provides the infrastructure to run operating system tests. ;;; The most important part of that is tools to instrument the OS under test, -;;; essentially allowing to run in a virtual machine controlled by the host +;;; essentially allowing it to run in a virtual machine controlled by the host ;;; system--hence the name "marionette". ;;; ;;; Code: @@ -254,6 +255,12 @@ the system under test." (set-record-type-printer! write-system-test) +(define-gexp-compiler (compile-system-test (test ) + system target) + "Compile TEST to a derivation." + ;; XXX: SYSTEM and TARGET are ignored. + (system-test-value test)) + (define (test-modules) "Return the list of modules that define system tests." (scheme-modules (dirname (search-path %load-path "guix.scm"))