From f37b732fa2a9f4c4e31c602fb3309bc882400ab9 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 5 Mar 2012 00:36:07 -0600 Subject: cleanups, dzil stuff, etc --- t/003-subprocess.t | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 t/003-subprocess.t (limited to 't/003-subprocess.t') 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; -- cgit v1.2.3-54-g00ecf