diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-03-05 00:36:07 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-03-05 00:36:07 -0600 |
commit | f37b732fa2a9f4c4e31c602fb3309bc882400ab9 (patch) | |
tree | 1f3c7a1cf99b494ac39f8ac28d9ae041e3806418 /t/002-spawn.t | |
parent | 4e21bde42072a32e0a7cc515546ce9f13ecc8833 (diff) | |
download | io-pty-easy-f37b732fa2a9f4c4e31c602fb3309bc882400ab9.tar.gz io-pty-easy-f37b732fa2a9f4c4e31c602fb3309bc882400ab9.zip |
cleanups, dzil stuff, etc
Diffstat (limited to 't/002-spawn.t')
-rw-r--r-- | t/002-spawn.t | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/t/002-spawn.t b/t/002-spawn.t deleted file mode 100644 index 620a57a..0000000 --- a/t/002-spawn.t +++ /dev/null @@ -1,16 +0,0 @@ -#!perl -use strict; -use warnings; -use Test::More tests => 5; -use IO::Pty::Easy; - -my $pty = IO::Pty::Easy->new; -$pty->spawn("$^X -ple ''"); -ok($pty->is_active, "spawning a subprocess"); -ok($pty->kill(0, 1), "subprocess actually exists"); -$pty->kill; -ok(!$pty->is_active, "killing a subprocess"); -$pty->spawn("$^X -ple ''"); -$pty->close; -ok(!$pty->is_active, "auto-killing a pty with close()"); -ok(!$pty->opened, "closing a pty after a spawn"); |