aboutsummaryrefslogtreecommitdiff
path: root/tests/syscalls.scm
diff options
context:
space:
mode:
authorMarius Bakke <marius@gnu.org>2020-06-28 17:52:24 +0200
committerMarius Bakke <marius@gnu.org>2020-06-28 23:32:52 +0200
commit5e113cf4424b2746cbf3633cd2106c62b89e5b49 (patch)
tree1c811f7d90f3bdea3190ef91e73c0a69185c56ca /tests/syscalls.scm
parentfdbba544d8e05ac715a99267a81a127b91db4f21 (diff)
downloadguix-5e113cf4424b2746cbf3633cd2106c62b89e5b49.tar
guix-5e113cf4424b2746cbf3633cd2106c62b89e5b49.tar.gz
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.
Diffstat (limited to 'tests/syscalls.scm')
-rw-r--r--tests/syscalls.scm6
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)))))