01/01: tests: Skip namespace-related tests when that feature is missing.

[Ludovic Courtès]

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)