mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Define AT_SYMLINK_NOFOLLOW et al.

Browse source 
* libguile/posix.c (scm_init_posix): Define AT_SYMLINK_NOFOLLOW,
AT_SYMLINK_FOLLOW, AT_NO_AUTOMOUNT, and AT_EMPTY_PATH when available.
(scm_utime): Mention AT_SYMLINK_NOFOLLOW.
* doc/ref/posix.texi (File System): Update accordingly.
* test-suite/tests/posix.test ("utime")["AT_SYMLINK_NOFOLLOW"]: New test.
This commit is contained in:
Ludovic Courtès 2018-09-23 16:39:42 +02:00 • committed by Andy Wingo
parent 176bfd0bce
commit 827e88b4b7
3 changed files with 41 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

21
test-suite/tests/posix.test
View file

@ -1,7 +1,7 @@
;;;; posix.test --- Test suite for Guile POSIX functions. -*- scheme -*-
;;;;
;;;; Copyright 2003, 2004, 2006, 2007, 2010, 2012,
;;;; 2015, 2017, 2019 Free Software Foundation, Inc.
;;;; Copyright 2003-2004,2006-2007,2010,2012,2015,2017-2019
;;;; Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -181,7 +181,22 @@
(and (= (stat:atime info) accessed)
(= (stat:mtime info) modified)))))
(lambda ()
(delete-file file))))))
(delete-file file)))))
(pass-if-equal "AT_SYMLINK_NOFOLLOW"
'(1 1)
(if (defined? 'AT_SYMLINK_NOFOLLOW)
(let ((file "posix.test-utime"))
(dynamic-wind
(lambda ()
(symlink "/dev/null" file))
(lambda ()
(utime file 1 1 0 0 AT_SYMLINK_NOFOLLOW)
(let ((info (lstat file)))
(list (stat:atime info) (stat:mtime info))))
(lambda ()
(delete-file file))))
(throw 'unsupported))))
;;
;; affinity