diff options
author | doy <doy@tozt.net> | 2009-02-03 20:05:06 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-02-03 20:05:06 -0500 |
commit | ecc0917407bff3bd000a7de92ebbc311221a3258 (patch) | |
tree | 34d467182b394a8d9ebdcb1e6b4e847305a2bb2c /t | |
parent | 3ac8638b4c875d2db479afc28dc336a80ed546fa (diff) | |
download | io-pty-easy-ecc0917407bff3bd000a7de92ebbc311221a3258.tar.gz io-pty-easy-ecc0917407bff3bd000a7de92ebbc311221a3258.zip |
system() stuff should be fixed
Diffstat (limited to '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 { |