summaryrefslogtreecommitdiff
path: root/tests/gexp.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/gexp.scm')
-rw-r--r--tests/gexp.scm7
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)