05/05: tests: Do not fail when network interface aliases are present.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 5e113cf4424b2746cbf3633cd2106c62b89e5b49
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sun Jun 28 17:52:24 2020 +0200

    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.
---
 tests/syscalls.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 6acaa0b..09aa228 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)))))