diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-12 00:13:20 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-12 00:14:09 +0200 |
| commit | 2793c0fb263bcadebd59c793a4cdf2634fb77360 (patch) | |
| tree | a6fbf05e96f39ee076cb0e07be76f8d9a17fad1f | |
| parent | d53e8ba6b5656d973f764d29a7dc8f8bbf8708b6 (diff) | |
| download | guix-2793c0fb263bcadebd59c793a4cdf2634fb77360.tar.gz | |
syscalls: Accept ENOENT in the 'swapoff' test.
Fixes <http://bugs.gnu.org/18690>.
Reported by Philip Woods <elzairthesorcerer@gmail.com>.
* tests/syscalls.scm ("swapoff, EINVAL/EPERM"): Rename to...
("swapoff, ENOENT/EINVAL/EPERM"): ... this. Add ENOENT to the list of
possible return values.
| -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 51846d3c36..161e036e19 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -52,13 +52,13 @@ (lambda args (memv (system-error-errno args) (list EPERM ENOENT))))) -(test-assert "swapoff, EINVAL/EPERM" +(test-assert "swapoff, ENOENT/EINVAL/EPERM" (catch 'system-error (lambda () (swapoff "/does-not-exist") #f) (lambda args - (memv (system-error-errno args) (list EPERM EINVAL))))) + (memv (system-error-errno args) (list EPERM EINVAL ENOENT))))) (test-assert "all-network-interfaces" (match (all-network-interfaces) |