summaryrefslogtreecommitdiff
path: root/tests/syscalls.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-07-25 11:46:31 +0200
committerLudovic Courtès <ludo@gnu.org>2015-07-25 14:43:44 +0200
commitb89e74054ee54b3afc8aed99fe9be89e8e05890b (patch)
tree427fde8fcd8fde2012ceb5a656d34a993c09d8c4 /tests/syscalls.scm
parent53de532f287d49627e4fcaaa3991a6e87810a98a (diff)
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.
Diffstat (limited to 'tests/syscalls.scm')
-rw-r--r--tests/syscalls.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 6b614a52117..3b71cd7b1c0 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -152,15 +152,15 @@
152 (status:exit-val status)))) 152 (status:exit-val status))))
153 (eq? #t result)))))))) 153 (eq? #t result))))))))
154 154
155(test-assert "all-network-interfaces" 155(test-assert "all-network-interface-names"
156 (match (all-network-interfaces) 156 (match (all-network-interface-names)
157 (((? string? names) ..1) 157 (((? string? names) ..1)
158 (member "lo" names)))) 158 (member "lo" names))))
159 159
160(test-assert "network-interfaces" 160(test-assert "network-interface-names"
161 (match (network-interfaces) 161 (match (network-interface-names)
162 (((? string? names) ..1) 162 (((? string? names) ..1)
163 (lset<= string=? names (all-network-interfaces))))) 163 (lset<= string=? names (all-network-interface-names)))))
164 164
165(test-assert "network-interface-flags" 165(test-assert "network-interface-flags"
166 (let* ((sock (socket AF_INET SOCK_STREAM 0)) 166 (let* ((sock (socket AF_INET SOCK_STREAM 0))