mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

avoid a ports test when fcntl is not provided

Browse source 
* test-suite/tests/ports.test (non blocking I/O): disable test when fcntl
    is not provided
This commit is contained in:
Michael Gran 2020-12-30 05:39:33 -08:00
parent 9baa2e9e58
commit c65154ac69
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/ports.test
View file

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