From 6cfea0e121e8c60d20bde3a170e95e892266f792 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Sun, 26 Oct 2025 12:09:49 +0200 Subject: [PATCH] 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 --- gnu/tests/samba.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/gnu/tests/samba.scm b/gnu/tests/samba.scm index db9f27c9ce2291d0b6b151cd7523e6d636e360ff..a4bcba9b64b86fb601af2e6016a0820f0f5f1fb4 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))))