summary refs log tree commit diff
path: root/tests/containers.scm
diff options
context:
space:
mode:
authorAndy Patterson <ajpatter@uwaterloo.ca>2016-11-12 22:20:28 -0500
committerLudovic Courtès <ludo@gnu.org>2016-11-13 13:04:00 +0100
commita24b56fa8d64d9c6b8348c439cc988dbcebc911f (patch)
tree722fc1bcbe1cee9fa18715b85761a4058618205f /tests/containers.scm
parentc25a51d5c64084a2dcd470aa0fb740215288fb1f (diff)
downloadguix-a24b56fa8d64d9c6b8348c439cc988dbcebc911f.tar.gz
tests: Don't check file-systems in container tests.
Hello,

The containers test was hanging for me, and this patch fixed the
problem.

--
Andy

From 945ad44acf489b7f3a398d4ab739ec2b48477502 Mon Sep 17 00:00:00 2001
From: Andy Patterson <ajpatter@uwaterloo.ca>
Date: Sat, 12 Nov 2016 22:10:01 -0500
Subject: [PATCH] tests: Don't check file-systems in container tests.

* tests/containers.scm ("call-with-container, mnt namespace"): Don't
check file-system in 'call-with-container' call.
* tests/containers.scm
("call-with-container, mnt namespace, wrong bindmount"): Likewise.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'tests/containers.scm')
-rw-r--r--tests/containers.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/containers.scm b/tests/containers.scm
index ccd122ac79..745b56b710 100644
--- a/tests/containers.scm
+++ b/tests/containers.scm
@@ -84,7 +84,8 @@
    (call-with-container (list (file-system
                                 (device "none")
                                 (mount-point "/testing")
-                                (type "tmpfs")))
+                                (type "tmpfs")
+                                (check? #f)))
      (lambda ()
        (assert-exit (file-exists? "/testing")))
      #:namespaces '(user mnt))))
@@ -99,7 +100,8 @@
                                    (device "/does-not-exist")
                                    (mount-point "/foo")
                                    (type "none")
-                                   (flags '(bind-mount))))
+                                   (flags '(bind-mount))
+                                   (check? #f)))
         (const #t)
         #:namespaces '(user mnt)))
     (lambda args