08/09: tests: Add <system-test> gexp compiler.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c0b726c2112e0e670dc134583b376541c0a3789a
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu Mar 5 16:10:40 2020 +0100

    tests: Add <system-test> gexp compiler.
    
    * gnu/tests.scm (compile-system-test): New gexp compiler.
---
 gnu/tests.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gnu/tests.scm b/gnu/tests.scm
index 60e7ef3..705bf56 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 <address@hidden>
+;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
 ;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
 ;;;
@@ -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"))