mirror of
https://codeberg.org/guix/guix.git
synced 2026-01-25 03:55:08 -06: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:
parent
e2d6046754
commit
6cfea0e121
1 changed files with 8 additions and 4 deletions
|
|
@ -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))))
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue