From: Michael Gran <spk121@yahoo.com>
Date: Wed, 30 Dec 2020 13:39:33 +0000 (-0800)
Subject: avoid a ports test when fcntl is not provided
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c65154ac69dcabcaaba4f20f1adb464d9b5b1a23;p=platform%2Fupstream%2Fguile.git

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
---

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index bd7a927f7..9aa486e98 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)))