diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-07-25 11:46:31 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-07-25 14:43:44 +0200 |
| commit | b89e74054ee54b3afc8aed99fe9be89e8e05890b (patch) | |
| tree | 427fde8fcd8fde2012ceb5a656d34a993c09d8c4 /tests | |
| parent | 53de532f287d49627e4fcaaa3991a6e87810a98a (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')
| -rw-r--r-- | tests/syscalls.scm | 10 |
1 files changed, 5 insertions, 5 deletions
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)) |