summaryrefslogtreecommitdiffstats
path: root/t/002-spawn.t
diff options
context:
space:
mode:
authorjluehrs2 <jluehrs2@uiuc.edu>2007-08-17 18:26:04 -0500
committerjluehrs2 <jluehrs2@uiuc.edu>2007-08-17 18:26:04 -0500
commit1757478ae658a89400792db79651ccbf4a422ed2 (patch)
tree7e1183c17b31766a8d7e761e8d86dc45a15bf31d /t/002-spawn.t
parent76a624b683ffa3ad213d8d9a711a82c0f9cbcb82 (diff)
downloadio-pty-easy-1757478ae658a89400792db79651ccbf4a422ed2.tar.gz
io-pty-easy-1757478ae658a89400792db79651ccbf4a422ed2.zip
make kill block on the subprocess death by default, and allow sending signals other than TERM
Diffstat (limited to 't/002-spawn.t')
-rw-r--r--t/002-spawn.t6
1 files changed, 0 insertions, 6 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");