[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#64356] [PATCH 4/4] tests: xvnc: Group up GDM test.
From: |
Bruno Victal |
Subject: |
[bug#64356] [PATCH 4/4] tests: xvnc: Group up GDM test. |
Date: |
Thu, 29 Jun 2023 21:44:22 +0100 |
* gnu/tests/vnc.scm (run-xvnc-test): Group up GDM test. Use GNU Ocrad when
possible.
---
gnu/tests/vnc.scm | 52 +++++++++++++++++++++++------------------------
1 file changed, 26 insertions(+), 26 deletions(-)
diff --git a/gnu/tests/vnc.scm b/gnu/tests/vnc.scm
index e59972eee4..504cb544b1 100644
--- a/gnu/tests/vnc.scm
+++ b/gnu/tests/vnc.scm
@@ -152,43 +152,43 @@ (define (run-xvnc-test)
| grep -Fq nothing"))
marionette))
- (test-assert "vnc lands on the gdm login screen"
+ (test-group "vnc lands on the gdm login screen"
;; This test runs vncviewer on the local VM and verifies that it
;; manages to access the GDM login screen (via XDMCP).
- (begin
- (define (ratpoison-abort)
- (marionette-control "sendkey ctrl-g" marionette))
-
- (define (ratpoison-help)
- (marionette-control "sendkey ctrl-t" marionette)
- (marionette-type "?" marionette)
- (sleep 1)) ;wait for help screen to appear
-
- (define (ratpoison-exec command)
- (marionette-control "sendkey ctrl-t" marionette)
- (marionette-type "!" marionette)
- (marionette-type (string-append command "\n") marionette))
-
- ;; Wait until the ratpoison help screen can be displayed; this
- ;; means the window manager is ready.
+ (define (ratpoison-abort)
+ (marionette-control "sendkey ctrl-g" marionette))
+
+ (define (ratpoison-help)
+ (marionette-control "sendkey ctrl-t" marionette)
+ (marionette-type "?" marionette)
+ (sleep 1)) ;wait for help screen to appear
+
+ (define (ratpoison-exec command)
+ (marionette-control "sendkey ctrl-t" marionette)
+ (marionette-type "!" marionette)
+ (marionette-type (string-append command "\n") marionette))
+
+ ;; Wait until the ratpoison help screen can be displayed; this
+ ;; means the window manager is ready.
+ ;; XXX: GNU Ocrad 0.28 yields poor results here, use tesseract
+ ;; instead.
+ (test-assert "window manager is ready"
(wait-for-screen-text marionette
(cut string-contains <> "key bindings")
#:ocr #$(file-append tesseract-ocr
"/bin/tesseract")
#:pre-action ratpoison-help
- #:post-action ratpoison-abort)
+ #:post-action ratpoison-abort))
;; Run vncviewer and expect the GDM login screen (accessed via
;; XDMCP). This can take a while to appear on slower machines.
- (ratpoison-exec "vncviewer localhost:5905")
- ;; XXX: tesseract narrowly recognizes "Guix" as "uix" from the
- ;; background image; ocrad fares worst. Sadly, 'Username' is
- ;; not recognized at all.
+ (ratpoison-exec "vncviewer localhost:5905")
+
+ (test-assert "GDM login screen ready"
(wait-for-screen-text marionette
- (cut string-contains <> "uix")
- #:ocr #$(file-append tesseract-ocr
- "/bin/tesseract")
- #:timeout 120)))
+ (cut string-contains <> "Guix")
+ #:ocr #$(file-append ocrad "/bin/ocrad")
+ #:ocr-arguments "--invert")))
(test-end)))))
--
2.39.2
- [bug#64356] [PATCH 0/4] Fix GDM and VNC tests, Bruno Victal, 2023/06/29
- [bug#64356] [PATCH 2/4] marionette: Allow passing custom OCR arguments., Bruno Victal, 2023/06/29
- [bug#64356] [PATCH 1/4] tests: xvnc: Fix test., Bruno Victal, 2023/06/29
- [bug#64356] [PATCH 3/4] tests: gdm: Prefer OCR to delay., Bruno Victal, 2023/06/29
- [bug#64356] [PATCH 4/4] tests: xvnc: Group up GDM test.,
Bruno Victal <=
- [bug#64356] [PATCH v2 3/4] tests: gdm: Prefer OCR to delay., Bruno Victal, 2023/06/29
- [bug#64356] [PATCH v2 4/4] tests: xvnc: Group up GDM test., Bruno Victal, 2023/06/29
- [bug#64356] [PATCH v2 2/4] marionette: Allow passing custom OCR arguments., Bruno Victal, 2023/06/29
- [bug#64356] [PATCH v2 1/4] tests: xvnc: Fix test., Bruno Victal, 2023/06/29
- [bug#64356] [PATCH v3 0/4] Fix GDM + VNC tests, Bruno Victal, 2023/06/30
- [bug#64356] [PATCH 0/4] Fix GDM and VNC tests, Maxim Cournoyer, 2023/06/30