diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-27 22:36:54 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-27 22:36:54 +0200 |
| commit | 35066aa596931ef84922298c2760ceba69940cd1 (patch) | |
| tree | 9c41ffe56cc705be611c90d302624cf4ebbccc78 | |
| parent | 5895f2444317ba74eeab21d517c703c3687165c0 (diff) | |
| download | guix-35066aa596931ef84922298c2760ceba69940cd1.tar guix-35066aa596931ef84922298c2760ceba69940cd1.tar.gz | |
syscalls: Be more permissive in 'umount' test.
* tests/syscalls.scm ("umount, ENOENT"): Rename to...
("umount, ENOENT/EPERM"): ... this. Accept EPERM as a valid return
value.
| -rw-r--r-- | tests/syscalls.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 5243ac9a34..ab34fc825b 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -33,13 +33,14 @@ #f) (compose system-error-errno list))) -(test-equal "umount, ENOENT" - ENOENT +(test-assert "umount, ENOENT/EPERM" (catch 'system-error (lambda () (umount "/does-not-exist") #f) - (compose system-error-errno list))) + (lambda args + ;; Both return values have been encountered in the wild. + (memv (system-error-errno args) (list EPERM ENOENT))))) (test-end) |