tests: Fix “appimage + localstatedir” test.

* tests/pack.scm ("appimage + localstatedir"): Create file “OUTPUT” and then
copy it to #$output.

Change-Id: I73be47a336e46c7099b940a02b13f8192145a185
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

1 files changed, 7 insertions, 2 deletions

diff --git a/tests/pack.scm b/tests/pack.scm
index 5422e156b90..66868ea3e61 100644
--- a/tests/pack.scm
+++ b/tests/pack.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017-2021, 2023, 2024 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017-2021, 2023-2024, 2026 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2021, 2023, 2025 Maxim Cournoyer <maxim@guixotic.coop>
 ;;; Copyright © 2023 Oleg Pykhalov <go.wigust@gmail.com>
@@ -386,12 +386,17 @@
          (check   (gexp->derivation
                    "check-appimage-with-localstatedir"
                    #~(begin
+                       ;; Create a file in $PWD and only then copy it to
+                       ;; #$output, because #$output within the image's
+                       ;; execution environment refers to its temporary store,
+                       ;; not to the "real one".
                        (system* #$image "--appimage-extract-and-run" "-c"
                                 (object->string
-                                 `(call-with-output-file #$output
+                                 `(call-with-output-file "OUTPUT"
                                     (lambda (port)
                                       (display "Hello from Guile!\n"
                                                port)))))
+                       (copy-file "OUTPUT" #$output)
                        (system* #$image "--appimage-extract")
                        (exit (file-exists? "squashfs-root/var/guix/db/db.sqlite"))))))
       (mbegin %store-monad