~ruther/guix-local: tests: Skip namespace-related tests when that feature is missing.

b62a3ebcdd2ffdd48462096ff84c96493776d5c3 — Ludovic Courtès 10 years ago 6c413c9

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

* tests/syscalls.scm ("clone", "setns", "pivot-root"): Skip
  unless (user-namespace (getpid)) exists.

patch browse .tar.gz

1 files changed, 6 insertions(+), 0 deletions(-)

M tests/syscalls.scm

M tests/syscalls.scm => tests/syscalls.scm +6 -0

@@ 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)