     ] with-stream
 ] unit-test
 
+! Test run-pipeline
 [ { } ] [ { } run-pipeline ] unit-test
 [ { f } ] [ { [ f ] } run-pipeline ] unit-test
 [ { "Hello" } ] [

    ] times
] unit-test

! 0 read should not block
[ f ] [
    [

    ] with-disposal
] must-fail

! Test writing to a half-open pipe
[ ] [
    1000 [
        utf8 <pipe> [
