diff options
Diffstat (limited to 't/100-system.t')
| -rw-r--r-- | t/100-system.t | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/t/100-system.t b/t/100-system.t index bfc423a..0be6006 100644 --- a/t/100-system.t +++ b/t/100-system.t @@ -7,17 +7,14 @@ use IO::Pty::Easy; my $pty = IO::Pty::Easy->new; $pty->spawn("$^X -ple ''"); my $output; -TODO: { - local $TODO = "sigchld breaks things..."; - eval { - local $SIG{ALRM} = sub { die "alarm\n" }; - alarm 5; - $output = `$^X -e 'print "foo"'`; - alarm 0; - }; - isnt($@, "alarm\n", "system() didn't time out"); - is($output, "foo", "system() got the right value"); -} +eval { + local $SIG{ALRM} = sub { die "alarm\n" }; + alarm 5; + $output = `$^X -e 'print "foo"'`; + alarm 0; +}; +isnt($@, "alarm\n", "system() didn't time out"); +is($output, "foo", "system() got the right value"); $pty->kill; undef $output; eval { |