     ] with-disposal
 ] must-fail
 
+! Test writing to a half-open pipe
 [ ] [
     1000 [
         utf8 <pipe> [

    ] times
] unit-test

! 0 read should not block
[ f ] [
    [

    } run-pipeline
] unit-test

! Test timeout
[
    utf8 <pipe> [
        1 seconds over set-timeout
