futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests: syscall: Support file-systems without extended attributes.

Browse Source 
* tests/syscalls.scm (setxattr): Catch ENOTSUP that can be raised if the
file-system does not support extended user attributes.
This commit is contained in:
Mathieu Othacehe 2020-06-05 12:28:12 +02:00
parent 1f9999df4a
commit ea924134f8
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/syscalls.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2020 Simon South <simon@simonsouth.net> ;;; Copyright © 2020 Simon South <simon@simonsouth.net>
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -276,8 +277,14 @@
(let ((key "user.translator") (let ((key "user.translator")
(value "/hurd/pfinet\0") (value "/hurd/pfinet\0")
(file (open-file temp-file "w0"))) (file (open-file temp-file "w0")))
(catch 'system-error
(lambda ()
(setxattr temp-file key value) (setxattr temp-file key value)
(string=? (getxattr 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)) (false-if-exception (delete-file temp-file))
(test-equal "fcntl-flock wait" (test-equal "fcntl-flock wait"