mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-23 02:59:17 -05:00
tests: Add <system-test> gexp compiler.
* gnu/tests.scm (compile-system-test): New gexp compiler.
This commit is contained in:
parent
e7671685a8
commit
c0b726c211
1 changed files with 7 additions and 1 deletions
|
@ -1,5 +1,5 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
|
||||
;;;
|
||||
|
@ -254,6 +254,12 @@ (define (write-system-test test port)
|
|||
|
||||
(set-record-type-printer! <system-test> write-system-test)
|
||||
|
||||
(define-gexp-compiler (compile-system-test (test <system-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"))
|
||||
|
|
Loading…
Reference in a new issue