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>
This commit is contained in:
parent
c25a51d5c6
commit
a24b56fa8d
|
@ -84,7 +84,8 @@
|
||||||
(call-with-container (list (file-system
|
(call-with-container (list (file-system
|
||||||
(device "none")
|
(device "none")
|
||||||
(mount-point "/testing")
|
(mount-point "/testing")
|
||||||
(type "tmpfs")))
|
(type "tmpfs")
|
||||||
|
(check? #f)))
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(assert-exit (file-exists? "/testing")))
|
(assert-exit (file-exists? "/testing")))
|
||||||
#:namespaces '(user mnt))))
|
#:namespaces '(user mnt))))
|
||||||
|
@ -99,7 +100,8 @@
|
||||||
(device "/does-not-exist")
|
(device "/does-not-exist")
|
||||||
(mount-point "/foo")
|
(mount-point "/foo")
|
||||||
(type "none")
|
(type "none")
|
||||||
(flags '(bind-mount))))
|
(flags '(bind-mount))
|
||||||
|
(check? #f)))
|
||||||
(const #t)
|
(const #t)
|
||||||
#:namespaces '(user mnt)))
|
#:namespaces '(user mnt)))
|
||||||
(lambda args
|
(lambda args
|
||||||
|
|
Loading…
Reference in New Issue