From 1757478ae658a89400792db79651ccbf4a422ed2 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Fri, 17 Aug 2007 18:26:04 -0500
Subject: make kill block on the subprocess death by default, and allow sending
 signals other than TERM

---
 t/002-spawn.t      | 6 ------
 t/010-read-write.t | 1 -
 2 files changed, 7 deletions(-)

(limited to 't')

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;
-- 
cgit v1.2.3-54-g00ecf