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 /tests/syscalls.scm | |
| parent | fdbba544d8e05ac715a99267a81a127b91db4f21 (diff) | |
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.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 6acaa0b1315..09aa228e8e5 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm | |||
| @@ -382,7 +382,11 @@ | |||
| 382 | (member "lo" names)))) | 382 | (member "lo" names)))) |
| 383 | 383 | ||
| 384 | (test-assert "network-interface-names" | 384 | (test-assert "network-interface-names" |
| 385 | (match (network-interface-names) | 385 | (match (remove (lambda (interface) |
| 386 | ;; Ignore interface aliases since they don't show up in | ||
| 387 | ;; (all-network-interface-names). | ||
| 388 | (string-contains interface ":")) | ||
| 389 | (network-interface-names)) | ||
| 386 | (((? string? names) ..1) | 390 | (((? string? names) ..1) |
| 387 | (lset<= string=? names (all-network-interface-names))))) | 391 | (lset<= string=? names (all-network-interface-names))))) |
| 388 | 392 | ||
