diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/002-spawn.t | 6 | ||||
| -rw-r--r-- | t/010-read-write.t | 1 |
2 files changed, 0 insertions, 7 deletions
diff --git a/t/002-spawn.t b/t/002-spawn.t index 9b61437..c023857 100644 --- a/t/002-spawn.t +++ b/t/002-spawn.t @@ -9,14 +9,8 @@ $pty->spawn("$^X -ple ''"); ok($pty->is_active, "spawning a subprocess"); ok(kill(0 => $pty->{pid}), "subprocess actually exists"); $pty->kill; -TODO: { -local $TODO = "kill() needs to block"; ok(!$pty->is_active, "killing a subprocess"); -} $pty->spawn("$^X -ple ''"); $pty->close; -TODO: { -local $TODO = "kill() needs to block"; ok(!$pty->is_active, "auto-killing a pty with close()"); -} ok(!defined($pty->{pty}), "closing a pty after a spawn"); diff --git a/t/010-read-write.t b/t/010-read-write.t index d538fe8..fdc1bb6 100644 --- a/t/010-read-write.t +++ b/t/010-read-write.t @@ -12,4 +12,3 @@ like($pty->read, qr/testing/, "basic read/write testing"); # if the perl script ends with a subprocess still running, the test will exit # with the exit status of the signal that the subprocess dies with, so we have to wait for the subprocess to finish before exiting. $pty->kill; -1 while $pty->is_active; |