[Guile-commits] 12/13: avoid a ports test when fcntl is not provided

[Mike Gran via Guile-commits]

mike121 pushed a commit to branch master
in repository guile.

commit c65154ac69dcabcaaba4f20f1adb464d9b5b1a23
Author: Michael Gran <spk...@yahoo.com>
AuthorDate: Wed Dec 30 05:39:33 2020 -0800

    avoid a ports test when fcntl is not provided
    
    * test-suite/tests/ports.test (non blocking I/O): disable test when fcntl
        is not provided
---
 test-suite/tests/ports.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index bd7a927..9aa486e 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -660,7 +660,7 @@
            (close-fdes fdes)
            #t))))
 
-(when (provided? 'threads)
+(when (and (provided? 'threads) (provided? 'fcntl))
   (let* ((p (pipe))
          (r (car p))
          (w (cdr p)))