me/guix
Archived
1
0
Fork 0
Code Activity

tests: base: Fix the screendump test.

Browse source 
* gnu/tests/base.scm (run-basic-test): Look for the screendump capture where
it has been saved, in the output directory.
This commit is contained in:
Mathieu Othacehe 2021-09-27 20:07:16 +00:00
parent 98a62011b0
commit d27e871ebb
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/tests/base.scm
View file

@ -484,10 +484,11 @@ info --version")
(test-assert "screendump" (test-assert "screendump"
(begin (begin
(marionette-control (string-append "screendump " #$output (let ((capture
"/tty1.ppm") (string-append #$output "/tty1.ppm")))
marionette) (marionette-control
(file-exists? "tty1.ppm"))) (string-append "screendump " capture) marionette)
(file-exists? capture))))
(test-assert "screen text" (test-assert "screen text"
(let ((text (marionette-screen-text marionette (let ((text (marionette-screen-text marionette