blob: bb6b093d93a669d40612f4e4d381a96a18914761 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!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");
$pty->kill;
|
