summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-08-27 10:52:11 +0200
committerLudovic Courtès <ludo@gnu.org>2015-08-27 10:52:11 +0200
commit54e515eb75491f4d32219c223d4c753afb0d2c48 (patch)
tree034446a22d51375e32996b7d0dba482a418c1343
parentd1f38287f464dfe19f7463c4a390c6da38b0997d (diff)
downloadguix-54e515eb75491f4d32219c223d4c753afb0d2c48.tar.gz
tests: Skip 'set-network-interface-address' test when running as root.
Reported by Eric Hanchrow <eric.hanchrow@gmail.com>
in <http://bugs.gnu.org/21354>.

* tests/syscalls.scm ("set-network-interface-address"): Skip when (getuid)
  returns zero.
-rw-r--r--tests/syscalls.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 090e1e7858..86783b96c4 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -197,6 +197,7 @@
     (close-port sock)
     addr))
 
+(test-skip (if (zero? (getuid)) 1 0))
 (test-assert "set-network-interface-address"
   (let ((sock (socket AF_INET SOCK_STREAM 0)))
     (catch 'system-error