diff options
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index b1dc298a14..51846d3c36 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -44,6 +44,22 @@ ;; Both return values have been encountered in the wild. (memv (system-error-errno args) (list EPERM ENOENT))))) +(test-assert "swapon, ENOENT/EPERM" + (catch 'system-error + (lambda () + (swapon "/does-not-exist") + #f) + (lambda args + (memv (system-error-errno args) (list EPERM ENOENT))))) + +(test-assert "swapoff, EINVAL/EPERM" + (catch 'system-error + (lambda () + (swapoff "/does-not-exist") + #f) + (lambda args + (memv (system-error-errno args) (list EPERM EINVAL))))) + (test-assert "all-network-interfaces" (match (all-network-interfaces) (((? string? names) ..1) |