From b62a3ebcdd2ffdd48462096ff84c96493776d5c3 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 10 Jul 2015 23:36:26 +0200
Subject: tests: Skip namespace-related tests when that feature is missing.
* tests/syscalls.scm ("clone", "setns", "pivot-root"): Skip
unless (user-namespace (getpid)) exists.
---
tests/syscalls.scm | 6 ++++++
1 file changed, 6 insertions(+)
(limited to 'tests')
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 8598f747f1..6b614a5211 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -80,6 +80,8 @@
(define (user-namespace pid)
(string-append "/proc/" (number->string pid) "/ns/user"))
+(unless (file-exists? (user-namespace (getpid)))
+ (test-skip 1))
(test-assert "clone"
(match (clone (logior CLONE_NEWUSER SIGCHLD))
(0 (primitive-exit 42))
@@ -91,6 +93,8 @@
((_ . status)
(= 42 (status:exit-val status))))))))
+(unless (file-exists? (user-namespace (getpid)))
+ (test-skip 1))
(test-assert "setns"
(match (clone (logior CLONE_NEWUSER SIGCHLD))
(0 (primitive-exit 0))
@@ -118,6 +122,8 @@
(waitpid fork-pid)
result))))))))
+(unless (file-exists? (user-namespace (getpid)))
+ (test-skip 1))
(test-assert "pivot-root"
(match (pipe)
((in . out)
--
cgit v1.2.3