summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-02-03 20:05:06 -0500
committerdoy <doy@tozt.net>2009-02-03 20:05:06 -0500
commitecc0917407bff3bd000a7de92ebbc311221a3258 (patch)
tree34d467182b394a8d9ebdcb1e6b4e847305a2bb2c
parent3ac8638b4c875d2db479afc28dc336a80ed546fa (diff)
downloadio-pty-easy-ecc0917407bff3bd000a7de92ebbc311221a3258.tar.gz
io-pty-easy-ecc0917407bff3bd000a7de92ebbc311221a3258.zip
system() stuff should be fixed
-rw-r--r--t/100-system.t19
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 {