nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* tests/syscalls.scm ("clone", "setns", "pivot-root"): Skip
  unless (user-namespace (getpid)) exists.
master
Ludovic Courtès 2015-07-10 23:36:26 +02:00
parent 6c413c92f2
commit b62a3ebcdd
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/syscalls.scm
View File

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