summary refs log tree commit diff
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
parent5895f2444317ba74eeab21d517c703c3687165c0 (diff)
downloadguix-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.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)