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/syscalls.scm | |
| 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/syscalls.scm')
| -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 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)) |
