bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 20:15:25 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: tests: Fix the samba test.

Browse source 
* gnu/tests/samba.scm (run-samba-test): De-duplicate the smbclient test and
introduce some retries.

Fixes: guix/guix#3981
Change-Id: Id9a68ddd98b31138564f19b85aca68357ad73351
This commit is contained in:
Mathieu Othacehe 2025-11-06 15:29:30 +01:00
parent 23fce946eb
commit cdcfa59864
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 12 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/tests/samba.scm
View file

@ -70,7 +70,8 @@
(virtual-machine
(operating-system (marionette-operating-system
%samba-os
#:imported-modules '((gnu services herd))))
#:imported-modules '((gnu services herd)
(gnu build dbus-service))))
(port-forwardings '((8135 . 135)
(8137 . 137)
(8138 . 138)
@ -134,22 +135,14 @@
(test-assert "samba-smbd is listening for peers"
(wait-for-tcp-port 445 marionette))
(test-equal "smbclient connect"
0
(test-assert "smbclient connect"
(marionette-eval
'(begin
(sleep 2)
(system* #$(file-append samba "/bin/smbclient")
"--list=localhost" "--no-pass"))
marionette))
(test-equal "smbclient connect"
0
(marionette-eval
'(begin
(sleep 2)
(system* #$(file-append samba "/bin/smbclient")
"--list=localhost" "--no-pass"))
(use-modules ((gnu build dbus-service)
#:select (with-retries)))
(with-retries 5 5
(zero? (system* #$(file-append samba "/bin/smbclient")
"--list=localhost" "--no-pass"))))
marionette))
(test-end))))
@ -217,3 +210,7 @@
(name "wsdd")
(description "Connect to a running wsdd daemon.")
(value (run-wsdd-test))))
;; Local Variables:
;; eval: (put 'with-retries 'scheme-indent-function 2)
;; End: