summary refs log tree commit diff
path: root/gnu/tests
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-09-27 20:07:16 +0000
committerMathieu Othacehe <othacehe@gnu.org>2021-09-27 20:07:16 +0000
commitd27e871ebb4ca84e291782c8d875976e921deccc (patch)
tree01ced69f0c708b8fa383217d9078be566d282e9c /gnu/tests
parent98a62011b051ce7f7383b0c6d071c0d2d536e940 (diff)
downloadguix-d27e871ebb4ca84e291782c8d875976e921deccc.tar.gz
tests: base: Fix the screendump test.
* gnu/tests/base.scm (run-basic-test): Look for the screendump capture where
it has been saved, in the output directory.
Diffstat (limited to 'gnu/tests')
-rw-r--r--gnu/tests/base.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm
index 4bc3598874..9198a3e267 100644
--- a/gnu/tests/base.scm
+++ b/gnu/tests/base.scm
@@ -484,10 +484,11 @@ info --version")
 
           (test-assert "screendump"
             (begin
-              (marionette-control (string-append "screendump " #$output
-                                                 "/tty1.ppm")
-                                  marionette)
-              (file-exists? "tty1.ppm")))
+              (let ((capture
+                     (string-append #$output "/tty1.ppm")))
+                (marionette-control
+                 (string-append "screendump " capture) marionette)
+                (file-exists? capture))))
 
           (test-assert "screen text"
             (let ((text (marionette-screen-text marionette