diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 6acaa0b131..7aa16ce3f4 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -382,7 +382,10 @@ (member "lo" names)))) (test-assert "network-interface-names" - (match (network-interface-names) + (match (filter (lambda (if) + ;; Ignore interface aliases. + (not (string-contains if ":"))) + (network-interface-names)) (((? string? names) ..1) (lset<= string=? names (all-network-interface-names)))))