diff options
Diffstat (limited to 'tests/gexp.scm')
| -rw-r--r-- | tests/gexp.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index ddb9904fef0..bc75d479b44 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | ;;; GNU Guix --- Functional package management for GNU | 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2014-2025 Ludovic Courtès <ludo@gnu.org> | 2 | ;;; Copyright © 2014-2026 Ludovic Courtès <ludo@gnu.org> |
| 3 | ;;; Copyright © 2021-2022 Maxime Devos <maximedevos@telenet.be> | 3 | ;;; Copyright © 2021-2022 Maxime Devos <maximedevos@telenet.be> |
| 4 | ;;; Copyright © 2026 David Elsing <david.elsing@posteo.net> | 4 | ;;; Copyright © 2026 David Elsing <david.elsing@posteo.net> |
| 5 | ;;; | 5 | ;;; |
| @@ -281,11 +281,10 @@ | |||
| 281 | (basename file) "\" \"t.scm\"))") | 281 | (basename file) "\" \"t.scm\"))") |
| 282 | port))) | 282 | port))) |
| 283 | 283 | ||
| 284 | (let* ((interned (add-to-store %store "t.scm" #f "sha256" file)) | 284 | (let* ((interned (add-to-store %store "t.scm" #f "sha256" file))) |
| 285 | (module (make-fresh-user-module))) | ||
| 286 | (module-use! module (resolve-interface '(guix gexp))) | 285 | (module-use! module (resolve-interface '(guix gexp))) |
| 287 | (equal? `(this file is ,interned) | 286 | (equal? `(this file is ,interned) |
| 288 | (gexp->sexp* (load* file module)))))) | 287 | (gexp->sexp* (load* file '())))))) |
| 289 | 288 | ||
| 290 | (test-assertm "local-file, #:select?" | 289 | (test-assertm "local-file, #:select?" |
| 291 | (mlet* %store-monad ((select? -> (lambda (file stat) | 290 | (mlet* %store-monad ((select? -> (lambda (file stat) |
