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 bd7a927f7ecf3c6feb7b9bf6c3190e55e6d7ff69..9aa486e98c7804790b2a89c154ff1adf1023f84a 100644 (file)
--- 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)))