aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-01-20 22:59:28 +0100
committerLudovic Courtès <ludo@gnu.org>2019-01-20 23:54:54 +0100
commit54800977d9e234fa92f927496ca9f9e6ec050aca (patch)
treef9b05841b0db885d20588ed14cafd4d76b48fe25
parent8e3e51df1136a3da5f331f340dd2c13197e7b499 (diff)
downloadpatches-54800977d9e234fa92f927496ca9f9e6ec050aca.tar
patches-54800977d9e234fa92f927496ca9f9e6ec050aca.tar.gz
self: Build the (gnu tests …) modules.
* guix/self.scm (compiled-guix)[*system-modules*]: Remove gnu/tests/* from #:extra-files. [*system-test-modules*]: New variable. [build-modules]: Add them.
-rw-r--r--guix/self.scm15
1 files changed, 11 insertions, 4 deletions
diff --git a/guix/self.scm b/guix/self.scm
index fa78015a41..f3679546f6 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -613,10 +613,6 @@ Info manual."
(append (file-imports source "gnu/system/examples"
(const #t))
- ;; Need so we get access system tests from an
- ;; inferior.
- (file-imports source "gnu/tests" (const #t))
-
;; All the installer code is on the build-side.
(file-imports source "gnu/installer/"
(const #t))
@@ -626,6 +622,16 @@ Info manual."
#:guile-for-build
guile-for-build))
+ (define *system-test-modules*
+ ;; Ship these modules mostly so (gnu ci) can refer to them.
+ (scheme-node "guix-system-tests"
+ `((gnu tests)
+ ,@(scheme-modules* source "gnu/tests"))
+ (list *core-package-modules* *package-modules*
+ *extra-modules* *system-modules* *core-modules*)
+ #:extensions dependencies
+ #:guile-for-build guile-for-build))
+
(define *cli-modules*
(scheme-node "guix-cli"
(append (scheme-modules* source "/guix/scripts")
@@ -664,6 +670,7 @@ Info manual."
;; comes with *CORE-MODULES*.
(list *config*
*cli-modules*
+ *system-test-modules*
*system-modules*
*package-modules*
*core-package-modules*