mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-28 05:50:30 +02:00
Code Activity

In posix test, skip AT_SYMLINK_NOFOLLOW test if symlinks unsupported

Browse source 
* test-suite/tests/posix.test ("AT_SYMLINK_NOFOLLOW"): skip if unsupported
This commit is contained in:
Michael Gran 2023-06-20 11:29:56 -07:00
parent 7aa3b482fb
commit 9ae3069437
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -197,7 +197,7 @@
(pass-if-equal "AT_SYMLINK_NOFOLLOW" (pass-if-equal "AT_SYMLINK_NOFOLLOW"
'(1 1) '(1 1)
(if (defined? 'AT_SYMLINK_NOFOLLOW) (if (and (defined? 'symlink) (defined? 'AT_SYMLINK_NOFOLLOW))
(let ((file "posix.test-utime")) (let ((file "posix.test-utime"))
(dynamic-wind (dynamic-wind
(lambda () (lambda ()