Skip to content
Snippets Groups Projects
Unverified Commit a24b56fa authored by Andy Patterson's avatar Andy Patterson Committed by Ludovic Courtès
Browse files

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: default avatarLudovic Courtès <ludo@gnu.org>
parent c25a51d5
No related branches found
No related tags found
No related merge requests found
...@@ -84,7 +84,8 @@ (define (skip-if-unsupported) ...@@ -84,7 +84,8 @@ (define (skip-if-unsupported)
(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 @@ (define (skip-if-unsupported) ...@@ -99,7 +100,8 @@ (define (skip-if-unsupported)
(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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment