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/003-subprocess.t | |
parent | 4e21bde42072a32e0a7cc515546ce9f13ecc8833 (diff) | |
download | io-pty-easy-f37b732fa2a9f4c4e31c602fb3309bc882400ab9.tar.gz io-pty-easy-f37b732fa2a9f4c4e31c602fb3309bc882400ab9.zip |
cleanups, dzil stuff, etc
Diffstat (limited to 't/003-subprocess.t')
-rw-r--r-- | t/003-subprocess.t | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/t/003-subprocess.t b/t/003-subprocess.t deleted file mode 100644 index cc87025..0000000 --- a/t/003-subprocess.t +++ /dev/null @@ -1,21 +0,0 @@ -#!perl -use strict; -use warnings; -use Test::More tests => 2; -use IO::Pty::Easy; - -my $pty = IO::Pty::Easy->new; -my $script = << 'EOF'; -$| = 1; -if (-t *STDIN && -t *STDOUT) { print "ok" } -else { print "failed" } -EOF - -my $outside_of_pty = `$^X -e '$script'`; -unlike($outside_of_pty, qr/ok/, "running outside of pty fails -t checks"); - -# we need to keep the script alive until we can read the output from it -$script .= "sleep 1 while 1;"; -$pty->spawn("$^X -e '$script'"); -like($pty->read, qr/ok/, "runs subprocess in a pty"); -$pty->close; |