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

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 3e894917414239cab1737d89feb263e0825ae7c5
Author: Ludovic Courtès <address@hidden>
Date:   Wed May 31 10:02:42 2017 +0200

    tests: Fix race condition in 'container-excursion*' test.
    
    * tests/containers.scm ("container-excursion*"): Move (namespace pid)
    call before (kill pid SIGKILL).
---
 tests/containers.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/containers.scm b/tests/containers.scm
index 0b3a4be..5323e50 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"