bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* tests/syscalls.scm ("clone", "setns", "pivot-root"): Skip
  unless (user-namespace (getpid)) exists.
This commit is contained in:
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)