~ruther/guix-local: tests: Fix race condition in 'container-excursion*' test.

3e894917414239cab1737d89feb263e0825ae7c5 — Ludovic Courtès 8 years ago bbc4167

tests: Fix race condition in 'container-excursion*' test.

* tests/containers.scm ("container-excursion*"): Move (namespace pid)
call before (kill pid SIGKILL).

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M tests/containers.scm

M tests/containers.scm => tests/containers.scm +2 -1

@@ 194,11 194,12 @@
                                    %namespaces 1
                                    (lambda ()
                                      (sleep 100))))
+            (expected (namespaces pid))
             (result (container-excursion* pid
                       (lambda ()
                         (namespaces 1)))))
        (kill pid SIGKILL)
-       (equal? result (namespaces pid))))))
+       (equal? result expected)))))
 
 (skip-if-unsupported)
 (test-equal "container-excursion*, same namespaces"