From d27e871ebb4ca84e291782c8d875976e921deccc Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Mon, 27 Sep 2021 20:07:16 +0000
Subject: 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.
---
 gnu/tests/base.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'gnu/tests')

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 @@ (define (entry->list entry)
 
           (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
-- 
cgit v1.2.3