[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: tests: Skip namespace-related tests when that feature is missing.
From: |
Ludovic Courtès |
Subject: |
01/01: tests: Skip namespace-related tests when that feature is missing. |
Date: |
Fri, 10 Jul 2015 21:47:01 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit b62a3ebcdd2ffdd48462096ff84c96493776d5c3
Author: Ludovic Courtès <address@hidden>
Date: Fri Jul 10 23:36:26 2015 +0200
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 files changed, 6 insertions(+), 0 deletions(-)
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 8598f74..6b614a5 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)