02/02: tests: Don't check file-systems in container tests.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit a24b56fa8d64d9c6b8348c439cc988dbcebc911f
Author: Andy Patterson <address@hidden>
Date:   Sat Nov 12 22:20:28 2016 -0500

    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 <address@hidden>
    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 <address@hidden>
---
 tests/containers.scm |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/containers.scm b/tests/containers.scm
index ccd122a..745b56b 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