diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2026-06-04 23:54:40 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2026-06-18 16:46:52 +0200 |
| commit | c263c41668a4071e981fcfae3faa4b6ce741fb46 (patch) | |
| tree | ba1cca417c79154be32977faa44f1c3bde6fb529 | |
| parent | 50fb72597db3448c13c74f33f864b00c7da977fd (diff) | |
tests: Fix gexp test involving ‘load*’.
Fixes a regression introduced in 94ae360ab4039afc8c942e77ba495705850c1e65,
which left the test broken.
* tests/gexp.scm ("local-file, relative file name, within gexp, compiled"):
Remove reference to ‘module’ variable. Adjust second argument to ‘load*’.
Change-Id: If7889645a0d5b0678a92e4c2e009ae0f54df6bee
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | tests/gexp.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index bc75d479b44..fcc269d75a7 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm | |||
| @@ -282,9 +282,8 @@ | |||
| 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-use! module (resolve-interface '(guix gexp))) | ||
| 286 | (equal? `(this file is ,interned) | 285 | (equal? `(this file is ,interned) |
| 287 | (gexp->sexp* (load* file '())))))) | 286 | (gexp->sexp* (load* file '((guix gexp)))))))) |
| 288 | 287 | ||
| 289 | (test-assertm "local-file, #:select?" | 288 | (test-assertm "local-file, #:select?" |
| 290 | (mlet* %store-monad ((select? -> (lambda (file stat) | 289 | (mlet* %store-monad ((select? -> (lambda (file stat) |
