From 54e515eb75491f4d32219c223d4c753afb0d2c48 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 27 Aug 2015 10:52:11 +0200
Subject: [PATCH] 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.
---
 tests/syscalls.scm | 1 +
 1 file changed, 1 insertion(+)

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