diff options
-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 ''"); |