[Guile-commits] 36/50: In posix test, skip AT_SYMLINK_NOFOLLOW test if symlinks unsupported

[Mike Gran via Guile-commits]

mike121 pushed a commit to branch wip-mingw-2025
in repository guile.

commit 9ae3069437fb30066cc406061aa4e79398438cf0
Author: Michael Gran <spk...@yahoo.com>
AuthorDate: Tue Jun 20 11:29:56 2023 -0700

    In posix test, skip AT_SYMLINK_NOFOLLOW test if symlinks unsupported
    
    * test-suite/tests/posix.test ("AT_SYMLINK_NOFOLLOW"): skip if unsupported
---
 test-suite/tests/posix.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
index ef8d3f47a..fe79c988f 100644
--- a/test-suite/tests/posix.test
+++ b/test-suite/tests/posix.test
@@ -197,7 +197,7 @@
 
   (pass-if-equal "AT_SYMLINK_NOFOLLOW"
       '(1 1)
-    (if (defined? 'AT_SYMLINK_NOFOLLOW)
+    (if (and (defined? 'symlink) (defined? 'AT_SYMLINK_NOFOLLOW))
         (let ((file "posix.test-utime"))
           (dynamic-wind
             (lambda ()