blob: 6a50f3bc893f1a761201a7e4e036b27ee82ccdaf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!perl
use strict;
use warnings;
use Test::More tests => 2;
use IO::Pty::Easy;
my $pty = new IO::Pty::Easy;
eval { $pty->spawn("missing_program_io_pty_easy") };
like($@, qr/Cannot exec\(missing_program_io_pty_easy\)/);
TODO: {
local $TODO = "spawn() needs to block on is_active until SIGCHLD is received if it fails";
ok(!$pty->is_active, "pty isn't active if program doesn't exist");
}
|
