diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2025-10-26 12:09:49 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2025-10-26 13:02:36 +0200 |
| commit | 6cfea0e121e8c60d20bde3a170e95e892266f792 (patch) | |
| tree | 1ea8fd0db1618126f8e3ddd4e01c21abb57466b7 | |
| parent | e2d6046754439ed1553645992b6155bb2f18bd7b (diff) | |
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
| -rw-r--r-- | gnu/tests/samba.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gnu/tests/samba.scm b/gnu/tests/samba.scm index db9f27c9ce2..a4bcba9b64b 100644 --- a/gnu/tests/samba.scm +++ b/gnu/tests/samba.scm @@ -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)))) |