summary refs log tree commit diff
path: root/tests/containers.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-05-31 10:02:42 +0200
committerLudovic Courtès <ludo@gnu.org>2017-05-31 17:08:45 +0200
commit3e894917414239cab1737d89feb263e0825ae7c5 (patch)
tree494385ac835e2aa33714a1372da9626890fe3f06 /tests/containers.scm
parentbbc4167995d6ef5fe9ed0a43d0a2d6d8c18ea071 (diff)
downloadguix-3e894917414239cab1737d89feb263e0825ae7c5.tar.gz
tests: Fix race condition in 'container-excursion*' test.
* tests/containers.scm ("container-excursion*"): Move (namespace pid)
call before (kill pid SIGKILL).
Diffstat (limited to 'tests/containers.scm')
-rw-r--r--tests/containers.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/containers.scm b/tests/containers.scm
index 0b3a4be12b..5323e5037d 100644
--- a/tests/containers.scm
+++ b/tests/containers.scm
@@ -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"