mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +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) (close-fdes fdes)
#t)))) #t))))
(when (provided? 'threads) (when (and (provided? 'threads) (provided? 'fcntl))
(let* ((p (pipe)) (let* ((p (pipe))
(r (car p)) (r (car p))
(w (cdr p))) (w (cdr p)))