From ce36c4c0d682a9bf8fa8b8c2484b11193b8021eb Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Tue, 6 Aug 2024 07:06:34 -0500
Subject: [PATCH] Only raise IOCP error on readable, writable, or acceptable
 streams.

We may create streams whose sole purpose is to wrap a file descriptor
and therefor don't need to be IOCP enabled / nonblocking.
---
 test/suite-os.janet | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/test/suite-os.janet b/test/suite-os.janet
index fdc623da..c4d2bda6 100644
--- a/test/suite-os.janet
+++ b/test/suite-os.janet
@@ -131,6 +131,12 @@
 (assert (= (os/perm-string 8r755) "rwxr-xr-x") "perm 8")
 (assert (= (os/perm-string 8r644) "rw-r--r--") "perm 9")
 
+# Pipes
+(assert-no-error (os/pipe))
+(assert-no-error (os/pipe :RW))
+(assert-no-error (os/pipe :R))
+(assert-no-error (os/pipe :W))
+
 # os/execute with environment variables
 # issue #636 - 7e2c433ab
 (assert (= 0 (os/execute [;run janet "-e" "(+ 1 2 3)"] :pe