summaryrefslogtreecommitdiff
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)
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 0b3a4be12b9..5323e5037dc 100644
--- a/tests/containers.scm
+++ b/tests/containers.scm
@@ -194,11 +194,12 @@
194 %namespaces 1 194 %namespaces 1
195 (lambda () 195 (lambda ()
196 (sleep 100)))) 196 (sleep 100))))
197 (expected (namespaces pid))
197 (result (container-excursion* pid 198 (result (container-excursion* pid
198 (lambda () 199 (lambda ()
199 (namespaces 1))))) 200 (namespaces 1)))))
200 (kill pid SIGKILL) 201 (kill pid SIGKILL)
201 (equal? result (namespaces pid)))))) 202 (equal? result expected)))))
202 203
203(skip-if-unsupported) 204(skip-if-unsupported)
204(test-equal "container-excursion*, same namespaces" 205(test-equal "container-excursion*, same namespaces"