diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-05 12:28:12 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-05 19:20:23 +0200 |
| commit | ea924134f819eef072ba7df9080d39de97fd73e6 (patch) | |
| tree | 789db0310ca53f4332e4a4218aa8e4bd244f3632 /tests | |
| parent | 1f9999df4a104558454d36d4aab821c9d5c631fd (diff) | |
| download | guix-ea924134f819eef072ba7df9080d39de97fd73e6.tar guix-ea924134f819eef072ba7df9080d39de97fd73e6.tar.gz | |
tests: syscall: Support file-systems without extended attributes.
* tests/syscalls.scm (setxattr): Catch ENOTSUP that can be raised if the
file-system does not support extended user attributes.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/syscalls.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 6098a09437..6acaa0b131 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2020 Simon South <simon@simonsouth.net> +;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -276,8 +277,14 @@ (let ((key "user.translator") (value "/hurd/pfinet\0") (file (open-file temp-file "w0"))) - (setxattr temp-file key value) - (string=? (getxattr temp-file key) value))) + (catch 'system-error + (lambda () + (setxattr temp-file key value) + (string=? (getxattr temp-file key) value)) + (lambda args + ;; Accept ENOTSUP, if the file-system does not support extended user + ;; attributes. + (memv (system-error-errno args) (list ENOTSUP)))))) (false-if-exception (delete-file temp-file)) (test-equal "fcntl-flock wait" |