ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

syscalls: Be more permissive in 'umount' test.

Browse source 
* tests/syscalls.scm ("umount, ENOENT"): Rename to...
  ("umount, ENOENT/EPERM"): ... this.  Accept EPERM as a valid return
  value.
This commit is contained in:
Ludovic Courtès 2014-05-27 22:36:54 +02:00
parent 5895f24443
commit 35066aa596
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/syscalls.scm
View file

@ -33,13 +33,14 @@ (define-module (test-syscalls)
#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)