diff options
author | Eric Wong <e@80x24.org> | 2016-05-22 07:49:04 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-05-22 07:52:50 +0000 |
commit | 189fd7c304e30e7dee6711f9f4213339a310d07a (patch) | |
tree | 3ca3f93d8f79913009a59ad479880444f8023f75 /t | |
parent | d644f8903b8dd4f9765fd0f88cc8e0d9fa5f6a5e (diff) | |
download | public-inbox-189fd7c304e30e7dee6711f9f4213339a310d07a.tar.gz |
We need to ensure $? is set properly for users.
Diffstat (limited to 't')
-rw-r--r-- | t/spawn.t | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -70,6 +70,15 @@ use PublicInbox::Spawn qw(which spawn popen_rd); is(sysread($fh, $buf, 6), 6, 'sysread got 6 bytes'); is($buf, "hello\n", 'tied gets works'); is(sysread($fh, $buf, 6), 0, 'sysread got EOF'); + $? = 1; + close $fh; + is($?, 0, '$? set properly'); +} + +{ + my $fh = popen_rd([qw(false)]); + close $fh; + isnt($?, 0, '$? set properly: '.$?); } { @@ -80,6 +89,7 @@ use PublicInbox::Spawn qw(which spawn popen_rd); 'sysread returned quickly with EAGAIN'); is(kill(15, $pid), 1, 'child process killed early'); is(waitpid($pid, 0), $pid, 'child process reapable'); + isnt($?, 0, '$? set properly: '.$?); } done_testing(); |