diff options
-rw-r--r-- | t/read-write.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/read-write.t b/t/read-write.t index 21fe729..42b7b58 100644 --- a/t/read-write.t +++ b/t/read-write.t @@ -12,6 +12,8 @@ like($pty->read, qr/testing/, "basic read/write testing"); is($pty->read(0.1), undef, "read returns undef on timeout"); $pty->kill; +TODO: { +local $TODO = "this isn't a reliable way to produce a blocking write"; $pty->spawn("$^X -e 'sleep(1) while 1'"); eval { local $SIG{ALRM} = sub { @@ -25,6 +27,7 @@ eval { }; $pty->kill; $pty->close; +} # create an entirely new pty to clear the input buffer $pty = IO::Pty::Easy->new; |