~ruther/guix-local

6cfea0e121e8c60d20bde3a170e95e892266f792 — Efraim Flashner 6 months ago e2d6046 
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
patch browse .tar.gz 
1 files changed, 8 insertions(+), 4 deletions(-)

M gnu/tests/samba.scm

M gnu/tests/samba.scm => gnu/tests/samba.scm +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))))