diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-09-27 20:07:16 +0000 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-09-27 20:07:16 +0000 |
| commit | d27e871ebb4ca84e291782c8d875976e921deccc (patch) | |
| tree | 01ced69f0c708b8fa383217d9078be566d282e9c /gnu/tests/base.scm | |
| parent | 98a62011b051ce7f7383b0c6d071c0d2d536e940 (diff) | |
| download | 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/base.scm')
| -rw-r--r-- | gnu/tests/base.scm | 9 |
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 |