1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#!/usr/bin/perl -w
# vim: ts=2 sw=2 filetype=perl expandtab
# Tests various signals using POE's stock signal handlers. These are
# plain Perl signals, so mileage may vary.
use strict;
use lib qw(./mylib ../mylib);
use Test::More;
BEGIN {
plan(skip_all => "Windows tests aren't necessary on $^O") if $^O eq "MacOS";
};
plan tests => 2;
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
BEGIN {
package POE::Kernel;
use constant TRACE_DEFAULT => exists($INC{'Devel/Cover.pm'});
}
use POE;
# POE::Kernel in version 0.19 assumed that SIGCHLD on Windows would
# always return negative PIDs. This was only true for pseudo
# processes created by fork(). Ted Suzman pointed out that real
# processes, such as those created by open("foo|"), have positive
# PIDs, so the internal inconsistency checks in POE were bogus. This
# test generates a positive PID and ensures that it's not treated as
# an error.
POE::Session->create(
inline_states => {
_start => sub {
$_[KERNEL]->sig(CHLD => "child_handler");
$_[KERNEL]->delay(timeout => 5);
open(FOO, "echo foo > nul:|") or die $!;
open(FOO, "echo foo > nul:|") or die $!;
my @x = <FOO>;
},
child_handler => sub {
pass("handled real SIGCHLD");
$_[KERNEL]->delay(timeout => undef);
$_[KERNEL]->sig(CHLD => undef);
},
_stop => sub { },
timeout => sub {
fail("handled real SIGCHLD");
$_[KERNEL]->sig(CHLD => undef);
},
}
);
POE::Kernel->run();
close FOO;
unlink "nul:";
pass("run() returned successfully");
|
