diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-05-31 10:02:42 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-05-31 17:08:45 +0200 |
| commit | 3e894917414239cab1737d89feb263e0825ae7c5 (patch) | |
| tree | 494385ac835e2aa33714a1372da9626890fe3f06 /tests/containers.scm | |
| parent | bbc4167995d6ef5fe9ed0a43d0a2d6d8c18ea071 (diff) | |
| download | guix-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).
Diffstat (limited to 'tests/containers.scm')
| -rw-r--r-- | tests/containers.scm | 3 |
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" |