diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/containers.scm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/containers.scm b/tests/containers.scm index 70d5ba2d30..1e915d517e 100644 --- a/tests/containers.scm +++ b/tests/containers.scm @@ -143,6 +143,32 @@ #:namespaces '(user mnt)))) (skip-if-unsupported) +(test-assert "call-with-container, mnt namespace, read-only root" + (zero? + (call-with-container '() + (lambda () + (assert-exit (and (file-is-directory? "/witness") + (catch 'system-error + (lambda () + (mkdir "/whatever") + #f) + (lambda args + (= (system-error-errno args) EROFS)))))) + #:populate-file-system (lambda () + (mkdir "/witness")) + #:namespaces '(user mnt)))) + +(skip-if-unsupported) +(test-assert "call-with-container, mnt namespace, writable root" + (zero? + (call-with-container '() + (lambda () + (mkdir "whatever") + (assert-exit (file-is-directory? "/whatever"))) + #:writable-root? #t + #:namespaces '(user mnt)))) + +(skip-if-unsupported) (test-assert "container-excursion" (call-with-temporary-directory (lambda (root) |