From c263c41668a4071e981fcfae3faa4b6ce741fb46 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 4 Jun 2026 23:54:40 +0200 Subject: =?UTF-8?q?tests:=20Fix=20gexp=20test=20involving=20=E2=80=98load*?= =?UTF-8?q?=E2=80=99.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 --- tests/gexp.scm | 3 +-- 1 file changed, 1 insertion(+), 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 @@ port))) (let* ((interned (add-to-store %store "t.scm" #f "sha256" file))) - (module-use! module (resolve-interface '(guix gexp))) (equal? `(this file is ,interned) - (gexp->sexp* (load* file '())))))) + (gexp->sexp* (load* file '((guix gexp)))))))) (test-assertm "local-file, #:select?" (mlet* %store-monad ((select? -> (lambda (file stat) -- cgit v1.2.3