From eb7b05d914faa8d81a064c54bc910e4ff8616b83 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Fri, 17 Aug 2007 00:06:40 -0500
Subject: we have tests

---
 t/003-subprocess.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 t/003-subprocess.t

(limited to 't/003-subprocess.t')

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");
-- 
cgit v1.2.3-54-g00ecf