1 files changed, 10 insertions, 1 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm
index e066076c5c..e870f6cb1b 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014-2024 Ludovic Courtès <[email protected]>
+;;; Copyright © 2014-2025 Ludovic Courtès <[email protected]>
 ;;; Copyright © 2021-2022 Maxime Devos <[email protected]>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -467,6 +467,15 @@
        (string=? result
                  (string-append (derivation->output-path drv)
                                 "/bin/touch"))))))
+
+(test-assert "with-parameters + store item"
+  (let* ((file (add-text-to-store %store "hello.txt" "Hello, world!"))
+         (obj (with-parameters ((%current-system "aarch64-linux"))
+                file))
+         (lowered (run-with-store %store
+                    (lower-object obj))))
+    (string=? lowered file)))
+
 (test-equal "let-system"
   (list `(begin ,(%current-system) #t) '(system-binding)
         'low '() '())