summaryrefslogtreecommitdiffstats
path: root/t/003-subprocess.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-03-05 00:36:07 -0600
committerJesse Luehrs <doy@tozt.net>2012-03-05 00:36:07 -0600
commitf37b732fa2a9f4c4e31c602fb3309bc882400ab9 (patch)
tree1f3c7a1cf99b494ac39f8ac28d9ae041e3806418 /t/003-subprocess.t
parent4e21bde42072a32e0a7cc515546ce9f13ecc8833 (diff)
downloadio-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.t21
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;