diff options
| author | Marius Bakke <marius@gnu.org> | 2020-06-28 17:52:24 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2020-06-28 23:32:52 +0200 |
| commit | 5e113cf4424b2746cbf3633cd2106c62b89e5b49 (patch) | |
| tree | 1c811f7d90f3bdea3190ef91e73c0a69185c56ca | |
| parent | fdbba544d8e05ac715a99267a81a127b91db4f21 (diff) | |
| download | guix-5e113cf4424b2746cbf3633cd2106c62b89e5b49.tar.gz guix-5e113cf4424b2746cbf3633cd2106c62b89e5b49.zip | |
tests: Do not fail when network interface aliases are present.
Fixes <https://bugs.gnu.org/42111>.
* tests/syscalls.scm ("network-interface-names"): Filter interface names with
a colon.
| -rw-r--r-- | tests/syscalls.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 6acaa0b131..09aa228e8e 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -382,7 +382,11 @@ (member "lo" names)))) (test-assert "network-interface-names" - (match (network-interface-names) + (match (remove (lambda (interface) + ;; Ignore interface aliases since they don't show up in + ;; (all-network-interface-names). + (string-contains interface ":")) + (network-interface-names)) (((? string? names) ..1) (lset<= string=? names (all-network-interface-names))))) |