diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2007-08-17 20:29:15 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2007-08-17 20:29:15 -0500 |
commit | 10ed5ca8a7d8b02d721bcfc0b47066a1c57b7f31 (patch) | |
tree | 2531394f58cb93638daa8e14088549ed455001e4 /t | |
parent | 41789a14fa36117fcb15776f5f3160591e7773cb (diff) | |
download | io-pty-easy-10ed5ca8a7d8b02d721bcfc0b47066a1c57b7f31.tar.gz io-pty-easy-10ed5ca8a7d8b02d721bcfc0b47066a1c57b7f31.zip |
use the new kill() interface in the tests rather than the perl builtin
Diffstat (limited to 't')
-rw-r--r-- | t/002-spawn.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/002-spawn.t b/t/002-spawn.t index c023857..ed0fd95 100644 --- a/t/002-spawn.t +++ b/t/002-spawn.t @@ -7,7 +7,7 @@ use IO::Pty::Easy; my $pty = new IO::Pty::Easy; $pty->spawn("$^X -ple ''"); ok($pty->is_active, "spawning a subprocess"); -ok(kill(0 => $pty->{pid}), "subprocess actually exists"); +ok($pty->kill(0, 1), "subprocess actually exists"); $pty->kill; ok(!$pty->is_active, "killing a subprocess"); $pty->spawn("$^X -ple ''"); |