aboutsummaryrefslogtreecommitdiff
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
guix-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