me/guix
Archived
1
0
Fork 0
Code Activity

tests: Add <system-test> gexp compiler.

Browse source 
* gnu/tests.scm (compile-system-test): New gexp compiler.
This commit is contained in:
Ludovic Courtès 2020-03-05 16:10:40 +01:00
parent e7671685a8
commit c0b726c211
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/tests.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
@ -254,6 +254,12 @@ the system under test."
(set-record-type-printer! <system-test> write-system-test) (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) (define (test-modules)
"Return the list of modules that define system tests." "Return the list of modules that define system tests."
(scheme-modules (dirname (search-path %load-path "guix.scm")) (scheme-modules (dirname (search-path %load-path "guix.scm"))