1 files changed, 14 insertions, 0 deletions
diff --git a/t/003-subprocess.t b/t/003-subprocess.t
new file mode 100644
index 0000000..edc9b09
--- /dev/null
+++ b/t/003-subprocess.t
@@ -0,0 +1,14 @@
+#!perl
+use strict;
+use warnings;
+use Test::More tests => 2;
+use IO::Pty::Easy;
+
+my $pty = new IO::Pty::Easy;
+my $script = "$^X -e '-t *STDIN && -t *STDOUT && print \"ok\";'";
+
+my $outside_of_pty = `$script`;
+unlike($outside_of_pty, qr/ok/, "running outside of PTY fails -t checks");
+
+$pty->spawn("$script");
+like($pty->read, qr/ok/, "runs subprocess in a PTY");