From a24b56fa8d64d9c6b8348c439cc988dbcebc911f Mon Sep 17 00:00:00 2001
From: Andy Patterson <ajpatter@uwaterloo.ca>
Date: Sat, 12 Nov 2016 22:20:28 -0500
Subject: [PATCH] tests: Don't check file-systems in container tests.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
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>
---
tests/containers.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/tests/containers.scm b/tests/containers.scm
index ccd122ac792..745b56b710d 100644
--- a/tests/containers.scm
+++ b/tests/containers.scm
@@ -84,7 +84,8 @@ (define (skip-if-unsupported)
(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 @@ (define (skip-if-unsupported)
(device "/does-not-exist")
(mount-point "/foo")
(type "none")
- (flags '(bind-mount))))
+ (flags '(bind-mount))
+ (check? #f)))
(const #t)
#:namespaces '(user mnt)))
(lambda args
--
GitLab