From b89e74054ee54b3afc8aed99fe9be89e8e05890b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 25 Jul 2015 11:46:31 +0200 Subject: syscalls: Rename 'network-interfaces' and 'all-network-interfaces'. * guix/build/syscalls.scm (network-interfaces): Rename to... (network-interface-names): ... this. (all-network-interfaces): Rename to... (all-network-interface-names): ... this. * gnu/services/networking.scm (dhcp-client-service): Adjust accordingly. * tests/syscalls.scm ("all-network-interfaces"): Rename to... ("all-network-interface-names"): ... this, and adjust accordingly. ("network-interfaces"): Rename to... ("network-interface-names"): ... this, and adjust accordingly. --- tests/syscalls.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests/syscalls.scm') diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 6b614a5211..3b71cd7b1c 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -152,15 +152,15 @@ (status:exit-val status)))) (eq? #t result)))))))) -(test-assert "all-network-interfaces" - (match (all-network-interfaces) +(test-assert "all-network-interface-names" + (match (all-network-interface-names) (((? string? names) ..1) (member "lo" names)))) -(test-assert "network-interfaces" - (match (network-interfaces) +(test-assert "network-interface-names" + (match (network-interface-names) (((? string? names) ..1) - (lset<= string=? names (all-network-interfaces))))) + (lset<= string=? names (all-network-interface-names))))) (test-assert "network-interface-flags" (let* ((sock (socket AF_INET SOCK_STREAM 0)) -- cgit v1.2.3