diff options
| author | 宋文武 <iyzsong@gmail.com> | 2015-04-08 16:04:37 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2015-04-08 16:04:37 +0800 |
| commit | cf3e3e374c4bd1c9f0f976fc8f02f66aff6417dc (patch) | |
| tree | b4ce7938c855781af2e0a1e68b3588f96de7e7e1 /tests/syscalls.scm | |
| parent | 4ae7559fd62c03a800b010c228639f18b9f58006 (diff) | |
| parent | 068a53c36dec5ace42cc3ea89060d9a485592f08 (diff) | |
| download | guix-cf3e3e374c4bd1c9f0f976fc8f02f66aff6417dc.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index f26331e164..706f3dff44 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -19,6 +19,7 @@ (define-module (test-syscalls) #:use-module (guix build syscalls) #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) #:use-module (srfi srfi-64) #:use-module (ice-9 match)) @@ -45,7 +46,10 @@ (memv (system-error-errno args) (list EPERM ENOENT))))) (test-assert "mount-points" - (member "/" (mount-points))) + ;; Reportedly "/" is not always listed as a mount point, so check a few + ;; others (see <http://bugs.gnu.org/20261>.) + (any (cute member <> (mount-points)) + '("/" "/proc" "/sys" "/dev"))) (test-assert "swapon, ENOENT/EPERM" (catch 'system-error |