From 0bc6fe323d34aabc7f51fa80b8872a2c1770d32a Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Tue, 4 Jul 2017 02:56:02 +0200 Subject: syscalls: Add network-interface-running? * guix/build/syscalls.scm (network-interface-running?): New variable. Export it. * tests/syscalls.scm: Add test. Co-authored-by: John Darrington --- tests/syscalls.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests') diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 8c048e6109..2b5c4c3be1 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -361,6 +361,16 @@ (lambda args (system-error-errno args))))) +(test-equal "loopback-network-interface-running?" + ENODEV + (and (network-interface-running? "lo") + (catch 'system-error + (lambda () + (network-interface-running? "nonexistent") + #f) + (lambda args + (system-error-errno args))))) + (test-skip (if (zero? (getuid)) 1 0)) (test-assert "set-network-interface-flags" (let ((sock (socket AF_INET SOCK_STREAM 0))) -- cgit v1.2.3