diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/tests.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm index 2a9e51511f0..1e3dbf09445 100644 --- a/gnu/tests.scm +++ b/gnu/tests.scm | |||
| @@ -34,7 +34,7 @@ | |||
| 34 | #:use-module (gnu services shepherd) | 34 | #:use-module (gnu services shepherd) |
| 35 | #:use-module (guix discovery) | 35 | #:use-module (guix discovery) |
| 36 | #:use-module (guix monads) | 36 | #:use-module (guix monads) |
| 37 | #:use-module ((guix store) #:select (%store-monad)) | 37 | #:use-module ((guix store) #:select (%store-monad store-parameterize)) |
| 38 | #:use-module ((guix utils) | 38 | #:use-module ((guix utils) |
| 39 | #:select (%current-system %current-target-system)) | 39 | #:select (%current-system %current-target-system)) |
| 40 | #:use-module (srfi srfi-1) | 40 | #:use-module (srfi srfi-1) |
| @@ -289,9 +289,9 @@ the system under test." | |||
| 289 | (define-gexp-compiler (compile-system-test (test <system-test>) | 289 | (define-gexp-compiler (compile-system-test (test <system-test>) |
| 290 | system target) | 290 | system target) |
| 291 | "Compile TEST to a derivation." | 291 | "Compile TEST to a derivation." |
| 292 | (mparameterize %store-monad ((%current-system system) | 292 | (store-parameterize ((%current-system system) |
| 293 | (%current-target-system target)) | 293 | (%current-target-system target)) |
| 294 | (system-test-value test))) | 294 | (system-test-value test))) |
| 295 | 295 | ||
| 296 | (define (test-modules) | 296 | (define (test-modules) |
| 297 | "Return the list of modules that define system tests." | 297 | "Return the list of modules that define system tests." |