aboutsummaryrefslogtreecommitdiff
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
parentbbc4167995d6ef5fe9ed0a43d0a2d6d8c18ea071 (diff)
downloadguix-3e894917414239cab1737d89feb263e0825ae7c5.tar
guix-3e894917414239cab1737d89feb263e0825ae7c5.tar.gz
tests: Fix race condition in 'container-excursion*' test.
* tests/containers.scm ("container-excursion*"): Move (namespace pid) call before (kill pid SIGKILL).
-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"