mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 11:29:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: minimal-desktop: Adjust to greetd 0.10.3.

Browse source 
This is a followup to 55cead2c49.

* gnu/tests/desktop.scm (run-minimal-desktop-test): Do not check for
‘GREETD_SOCK’.

Change-Id: I2eb5af947ee1753d6237c95feb3cea7ed98f90ad
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
muradm 2025-01-20 00:24:03 +01:00 • committed by Ludovic Courtès
parent 82317da3de
commit bc6769f121
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/tests/desktop.scm
View file

@ -244,14 +244,14 @@ minimal %BASE-SERVICES."
(sort (filter expected-var user-env) string<?)))
(test-assert "validate SEATD_SOCK and GREETD_SOCK"
(test-assert "validate SEATD_SOCK"
(begin
(marionette-type "env > env\n" marionette)
(sleep 1)
(define (sock-var? var)
(any (lambda (s) (string-contains var s))
'("SEATD_SOCK" "GREETD_SOCK")))
'("SEATD_SOCK")))
(define (sock-var-sock var)
(car (cdr (string-split var #\=))))
@ -262,7 +262,7 @@ minimal %BASE-SERVICES."
(out (filter sock-var? out))
(socks (map sock-var-sock out))
(socks (map wait-for-unix-socket-m socks)))
(and (= 2 (length socks)) (every identity socks)))))
(and (= 1 (length socks)) (every identity socks)))))
(test-equal "seatd.sock ownership"
'("root" "seat")