diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-11-19 10:02:15 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-11-19 10:02:15 +0100 |
| commit | 1cc3b7e80f60a2a5a6a1400ed0b025efeae7a523 (patch) | |
| tree | 77cbf407563c8c4b1acc00fe0fdb8ac79b1fdd95 /gnu/tests.scm | |
| parent | f64ec2b15132c46bcdf0546196646237890832f6 (diff) | |
| parent | b7abea0fd6a146563830db1dc4ddd0cceb6fcf1c (diff) | |
| download | guix-1cc3b7e80f60a2a5a6a1400ed0b025efeae7a523.tar guix-1cc3b7e80f60a2a5a6a1400ed0b025efeae7a523.tar.gz | |
Merge branch 'master' into gnome-team
Change-Id: I62da840b7600f2d3d8541e666d09e2f2a1b7d8c4
Diffstat (limited to 'gnu/tests.scm')
| -rw-r--r-- | gnu/tests.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm index 96ecb40ea2..5ff9db82fc 100644 --- a/gnu/tests.scm +++ b/gnu/tests.scm @@ -33,6 +33,10 @@ #:use-module (gnu services base) #:use-module (gnu services shepherd) #:use-module (guix discovery) + #:use-module (guix monads) + #:use-module ((guix store) #:select (%store-monad)) + #:use-module ((guix utils) + #:select (%current-system %current-target-system)) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9 gnu) #:use-module (ice-9 match) @@ -284,8 +288,9 @@ the system under 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)) + (mparameterize %store-monad ((%current-system system) + (%current-target-system target)) + (system-test-value test))) (define (test-modules) "Return the list of modules that define system tests." |