uringmachine 0.23.1 → 0.24.0

data/test/test_fiber_scheduler.rb

@@ -18,6 +18,7 @@ class MethodCallAuditor
   def respond_to?(sym, include_all = false) = @target.respond_to?(sym, include_all)
 
   def method_missing(sym, *args, &block)
+    # UM.debug({sym:}.inspect)
     res = @target.send(sym, *args, &block)
     @calls << ({ sym:, args:, res:})
     res
@@ -105,7 +106,7 @@ class FiberSchedulerTest < UMBaseTest
       io_read: 3,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     i.close rescue nil
     o.close rescue nil
@@ -128,7 +129,7 @@ class FiberSchedulerTest < UMBaseTest
       fiber: 1,
       io_read: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     i.close rescue nil
     o.close rescue nil
@@ -153,7 +154,7 @@ class FiberSchedulerTest < UMBaseTest
       fiber: 1,
       io_write: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     i.close rescue nil
     o.close rescue nil
@@ -174,7 +175,7 @@ class FiberSchedulerTest < UMBaseTest
     assert_equal({
       fiber: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     i.close rescue nil
     o.close rescue nil
@@ -201,7 +202,7 @@ class FiberSchedulerTest < UMBaseTest
       io_pread: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     FileUtils.rm(fn) rescue nil
   end
@@ -227,7 +228,7 @@ class FiberSchedulerTest < UMBaseTest
       io_pwrite: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     FileUtils.rm(fn) rescue nil
   end
@@ -250,7 +251,7 @@ class FiberSchedulerTest < UMBaseTest
       fiber: 2,
       kernel_sleep: 2,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_fiber_scheduler_block
@@ -275,7 +276,7 @@ class FiberSchedulerTest < UMBaseTest
       block: 1,
       unblock: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_fiber_scheduler_process_wait
@@ -303,7 +304,7 @@ class FiberSchedulerTest < UMBaseTest
       fiber: 1,
       process_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     if child_pid
       Process.wait(child_pid) rescue nil
@@ -337,7 +338,7 @@ class FiberSchedulerTest < UMBaseTest
       fiber: 2,
       io_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     s1.close rescue nil
     s2.close rescue nil
@@ -362,11 +363,12 @@ class FiberSchedulerTest < UMBaseTest
     assert_equal({
       fiber: 2,
       blocking_operation_wait: 2,
+      io_write: 1,
       io_read: 2,
       io_close: 2,
       kernel_sleep: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     FileUtils.rm(fn) rescue nil
   end
@@ -381,7 +383,7 @@ class FiberSchedulerTest < UMBaseTest
     buf = nil
     Fiber.schedule do
       sleep 0.001
-      File.open(fn, 'r') { buf = it.read }
+      File.open(fn, 'r') { buf = it.read  }
     end
     assert_equal 2, machine.metrics[:total_ops]
     @scheduler.join
@@ -389,15 +391,74 @@ class FiberSchedulerTest < UMBaseTest
     assert_equal({
       fiber: 2,
       blocking_operation_wait: 2,
+      io_write: 1,
       io_read: 2,
       io_close: 2,
       kernel_sleep: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     FileUtils.rm(fn) rescue nil
   end
 
+  def test_fiber_scheduler_file_write_buffered
+    fn = "/tmp/um_#{SecureRandom.hex}"
+    Fiber.schedule do
+      File.open(fn, 'w') {
+        it << 'foo'
+      }
+    end
+    @scheduler.join
+    assert_equal 'foo', IO.read(fn)
+    assert_equal({
+      fiber: 1,
+      blocking_operation_wait: 1,
+      io_write: 1,
+      io_close: 1,
+      join: 1
+    }, scheduler_calls_tally)
+  end
+
+  def test_fiber_scheduler_file_write_buffered_flush
+    fn = "/tmp/um_#{SecureRandom.hex}"
+    Fiber.schedule do
+      File.open(fn, 'w') {
+        it << 'foo'
+        it.flush
+        it << 'bar'
+      }
+    end
+    @scheduler.join
+    assert_equal 'foobar', IO.read(fn)
+    assert_equal({
+      fiber: 1,
+      blocking_operation_wait: 1,
+      io_write: 2,
+      io_close: 1,
+      join: 1
+    }, scheduler_calls_tally)
+  end
+
+  def test_fiber_scheduler_file_write_unbuffered
+    # fn = "/tmp/um_#{SecureRandom.hex}"
+    fn = '/dev/null'
+    Fiber.schedule do
+      File.open(fn, 'w') {
+        it.sync = true
+        it << 'foo'
+      }
+    end
+    @scheduler.join
+    # assert_equal 'foo', IO.read(fn)
+    assert_equal({
+      fiber: 1,
+      blocking_operation_wait: 1, # open
+      io_write: 1,
+      io_close: 1,
+      join: 1
+    }, scheduler_calls_tally)
+  end
+
   def test_fiber_scheduler_mutex
     mutex = Mutex.new
 
@@ -432,7 +493,7 @@ class FiberSchedulerTest < UMBaseTest
       block: 1,
       unblock: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_fiber_scheduler_queue_shift
@@ -458,7 +519,7 @@ class FiberSchedulerTest < UMBaseTest
       block: 1,
       unblock: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_fiber_scheduler_queue_shift_with_timeout
@@ -481,7 +542,7 @@ class FiberSchedulerTest < UMBaseTest
       fiber: 2,
       block: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_fiber_scheduler_thread_join
@@ -502,7 +563,7 @@ class FiberSchedulerTest < UMBaseTest
       block: 1,
       unblock: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_fiber_scheduler_system
@@ -519,7 +580,7 @@ class FiberSchedulerTest < UMBaseTest
       fiber: 1,
       process_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     Process.wait(0, Process::WNOHANG) rescue nil
   end
@@ -540,7 +601,7 @@ class FiberSchedulerTest < UMBaseTest
       io_read: 2,
       process_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     Process.wait(0, Process::WNOHANG) rescue nil
   end
@@ -569,7 +630,7 @@ class FiberSchedulerTest < UMBaseTest
       blocking_operation_wait: 1,
       process_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     Process.wait(0, Process::WNOHANG) rescue nil
   end
@@ -596,7 +657,7 @@ class FiberSchedulerTest < UMBaseTest
       io_read: 2,
       fiber_interrupt: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     r.close rescue nil
     w.close rescue nil
@@ -620,7 +681,7 @@ class FiberSchedulerTest < UMBaseTest
       blocking_operation_wait: 1,
       address_resolve: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_fiber_scheduler_timeout_after
@@ -641,7 +702,7 @@ class FiberSchedulerTest < UMBaseTest
       timeout_after: 1,
       kernel_sleep: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_fiber_scheduler_io_select
@@ -654,7 +715,7 @@ class FiberSchedulerTest < UMBaseTest
     end
     @machine.snooze
     w << 'foo'
-    @machine.snooze
+    2.times { @machine.snooze }
     assert_equal [[[r], [], []]], buf
     @machine.snooze
     @scheduler.join
@@ -718,7 +779,7 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
       blocking_operation_wait: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_s_binwrite
@@ -732,9 +793,10 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
     assert_equal({
       fiber: 1,
       blocking_operation_wait: 1,
+      io_write: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_s_copy_stream
@@ -751,7 +813,7 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
       blocking_operation_wait: 3,
       io_close: 2,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     FileUtils.rm(fn2) rescue nil
   end
@@ -769,7 +831,7 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
       blocking_operation_wait: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_s_popen
@@ -784,7 +846,7 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
       io_read: 2,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_s_read
@@ -800,7 +862,7 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
       blocking_operation_wait: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_s_readlines
@@ -816,7 +878,7 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
       blocking_operation_wait: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_s_select
@@ -831,7 +893,7 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
       fiber: 1,
       io_select: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     io.close rescue nil
   end
@@ -847,9 +909,10 @@ class FiberSchedulerIOClassMethodsTest < UMBaseTest
     assert_equal({
       fiber: 1,
       blocking_operation_wait: 1,
+      io_write: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 end
 
@@ -883,7 +946,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_write: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_close
@@ -897,7 +960,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_close: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_close_read
@@ -910,7 +973,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
     assert_equal({
       fiber: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_close_write
@@ -923,7 +986,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
     assert_equal({
       fiber: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_each_byte
@@ -937,7 +1000,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 2,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_each_char
@@ -951,7 +1014,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 2,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_each_line
@@ -965,7 +1028,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 3,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_getbyte
@@ -979,7 +1042,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_getc
@@ -993,7 +1056,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_gets
@@ -1007,7 +1070,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 2,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_pread
@@ -1021,7 +1084,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_pread: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_print
@@ -1036,7 +1099,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_write: 3,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_printf
@@ -1051,7 +1114,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_write: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_putc
@@ -1066,7 +1129,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_write: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_puts
@@ -1081,7 +1144,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_write: 2,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_pwrite
@@ -1096,7 +1159,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_pwrite: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_read
@@ -1110,7 +1173,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 2,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_readbyte
@@ -1124,7 +1187,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_readchar
@@ -1138,7 +1201,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_readline
@@ -1152,7 +1215,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 2,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_readlines
@@ -1166,7 +1229,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 3,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_readpartial
@@ -1180,7 +1243,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_sysread
@@ -1194,7 +1257,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_read: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_syswrite
@@ -1209,7 +1272,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_write: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_wait
@@ -1223,7 +1286,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_wait_pipe_read_timeout
@@ -1238,7 +1301,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     r.close rescue nil
     w.close rescue nil
@@ -1255,7 +1318,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_wait_writable
@@ -1269,7 +1332,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_wait: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 
   def test_IO_i_write
@@ -1284,7 +1347,7 @@ class FiberSchedulerIOInstanceMethodsTest < UMBaseTest
       fiber: 1,
       io_write: 1,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   end
 end
 
@@ -1317,14 +1380,12 @@ class FiberSchedulerQueueTest < UMBaseTest
       end
     }
     @scheduler.join
-    assert_equal({
-      fiber: 10,
-      kernel_sleep: 25,
-      yield: 25,
-      block: 25,
-      unblock: 25,
-      join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+
+    calls = scheduler_calls_tally
+    assert_equal 10, calls[:fiber]
+    assert_equal 25, calls[:kernel_sleep]
+    assert_equal 25, calls[:yield]
+    assert_equal 1, calls[:join]
   end
 end
 
@@ -1405,13 +1466,14 @@ class FiberSchedulerMultiPipeTest < UMBaseTest
       io_write: 1000,
       io_close: 10,
       join: 1
-    }, @scheduler.calls.map { it[:sym] }.tally)
+    }, scheduler_calls_tally)
   ensure
     ios.each { it.close rescue nil }
   end
 end
 
 class FiberSchedulerMultiTCPTest < UMBaseTest
+
   C = 10
   W = 10
   I = 10
@@ -1497,7 +1559,7 @@ class FiberSchedulerMultiTCPTest < UMBaseTest
       end
     end
     @machine.await_fibers(fibers)
-    @calls = @scheduler.calls.map { it[:sym] }.tally
+    @calls = scheduler_calls_tally
   ensure
     # p ensure: ios
     ios.each { it.close rescue nil }
@@ -1525,3 +1587,53 @@ class FiberSchedulerMultiTCPTest < UMBaseTest
     }, @calls)
   end
 end
+
+class FiberSchedulerErrorTest < UMBaseTest
+  def setup
+    super
+    @raw_scheduler = UM::FiberScheduler.new(@machine)
+    @scheduler = MethodCallAuditor.new(@raw_scheduler)
+    Fiber.set_scheduler(@scheduler)
+  end
+
+  def teardown
+    Fiber.set_scheduler(nil)
+    super
+  end
+
+  def test_fiber_scheduler_io_read_error
+    ret = nil
+    Fiber.schedule do
+      File.open(Dir.tmpdir, 'r') { it.read(42) }
+    rescue => e
+      ret = e
+    end
+    @scheduler.join
+    assert_kind_of Errno::EISDIR, ret
+    assert_equal({
+      fiber: 1,
+      io_read: 1,
+      blocking_operation_wait: 3,
+      io_close: 1,
+      join: 1
+    }, scheduler_calls_tally)
+  end
+
+  def test_fiber_scheduler_io_write_error
+    ret = nil
+    r, w = IO.pipe
+    r.close
+    Fiber.schedule do
+      w << 'foo'
+    rescue => e
+      ret = e
+    end
+    @scheduler.join
+    assert_kind_of Errno::EPIPE, ret
+    assert_equal({
+      fiber: 1,
+      io_write: 1,
+      join: 1
+    }, scheduler_calls_tally)
+  end
+end