diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-05 16:10:40 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-05 16:33:37 +0100 |
| commit | c0b726c2112e0e670dc134583b376541c0a3789a (patch) | |
| tree | c62de338d9cedee539c153540e67536787addfd6 | |
| parent | e7671685a882a2269718c3949b7f2cd995cb85e4 (diff) | |
| download | guix-c0b726c2112e0e670dc134583b376541c0a3789a.tar guix-c0b726c2112e0e670dc134583b376541c0a3789a.tar.gz | |
tests: Add <system-test> gexp compiler.
* gnu/tests.scm (compile-system-test): New gexp compiler.
| -rw-r--r-- | gnu/tests.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm index 60e7ef30c0..705bf561a6 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 <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 @@ the system under 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) "Return the list of modules that define system tests." (scheme-modules (dirname (search-path %load-path "guix.scm")) |