[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch core-updates-frozen updated: tests: base: Fix the screendump test
From: |
guix-commits |
Subject: |
branch core-updates-frozen updated: tests: base: Fix the screendump test. |
Date: |
Mon, 27 Sep 2021 16:08:30 -0400 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch core-updates-frozen
in repository guix.
The following commit(s) were added to refs/heads/core-updates-frozen by this
push:
new d27e871 tests: base: Fix the screendump test.
d27e871 is described below
commit d27e871ebb4ca84e291782c8d875976e921deccc
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Sep 27 20:07:16 2021 +0000
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(-)
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm
index 4bc3598..9198a3e 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch core-updates-frozen updated: tests: base: Fix the screendump test.,
guix-commits <=