mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-01 06:45:55 +02:00
tests: samba: Add delay in some tests.
* gnu/tests/samba.scm (run-samba-test)[smbclient connect, smbclient connect]: Add a delay before checking the connection to the samba server. Change-Id: Iffe378756f05b8b1a63e861ed626c943aceb3fc2
This commit is contained in:
+8
-4
@@ -137,15 +137,19 @@
|
||||
(test-equal "smbclient connect"
|
||||
0
|
||||
(marionette-eval
|
||||
'(system* #$(file-append samba "/bin/smbclient")
|
||||
"--list=localhost" "--no-pass")
|
||||
'(begin
|
||||
(sleep 2)
|
||||
(system* #$(file-append samba "/bin/smbclient")
|
||||
"--list=localhost" "--no-pass"))
|
||||
marionette))
|
||||
|
||||
(test-equal "smbclient connect"
|
||||
0
|
||||
(marionette-eval
|
||||
'(system* #$(file-append samba "/bin/smbclient")
|
||||
"--list=localhost" "--no-pass")
|
||||
'(begin
|
||||
(sleep 2)
|
||||
(system* #$(file-append samba "/bin/smbclient")
|
||||
"--list=localhost" "--no-pass"))
|
||||
marionette))
|
||||
|
||||
(test-end))))
|
||||
|
||||
Reference in New Issue
Block a user