aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-27 22:36:54 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-27 22:36:54 +0200
commit35066aa596931ef84922298c2760ceba69940cd1 (patch)
tree9c41ffe56cc705be611c90d302624cf4ebbccc78 /tests
parent5895f2444317ba74eeab21d517c703c3687165c0 (diff)
downloadguix-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.
Diffstat (limited to 'tests')
-rw-r--r--tests/syscalls.scm7
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)