summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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