diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/syscalls.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 51846d3c36c..161e036e194 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm | |||
| @@ -52,13 +52,13 @@ | |||
| 52 | (lambda args | 52 | (lambda args |
| 53 | (memv (system-error-errno args) (list EPERM ENOENT))))) | 53 | (memv (system-error-errno args) (list EPERM ENOENT))))) |
| 54 | 54 | ||
| 55 | (test-assert "swapoff, EINVAL/EPERM" | 55 | (test-assert "swapoff, ENOENT/EINVAL/EPERM" |
| 56 | (catch 'system-error | 56 | (catch 'system-error |
| 57 | (lambda () | 57 | (lambda () |
| 58 | (swapoff "/does-not-exist") | 58 | (swapoff "/does-not-exist") |
| 59 | #f) | 59 | #f) |
| 60 | (lambda args | 60 | (lambda args |
| 61 | (memv (system-error-errno args) (list EPERM EINVAL))))) | 61 | (memv (system-error-errno args) (list EPERM EINVAL ENOENT))))) |
| 62 | 62 | ||
| 63 | (test-assert "all-network-interfaces" | 63 | (test-assert "all-network-interfaces" |
| 64 | (match (all-network-interfaces) | 64 | (match (all-network-interfaces) |
