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
|
#!/usr/bin/perl -w
# vim: ts=2 sw=2 filetype=perl expandtab
# While Apocalypse was debugging RT#65460 he noticed that POE took a long
# time to exit if TRACE_STATISTICS was enabled. It messed up the select
# timeout, and causing the internals to go boom! We've removed TRACE_STATISTICS
# but this test will remain here in case we screw up in the future :)
BEGIN {
# perl-5.6.x on Win32 does not support alarm()
if ( $^O eq 'MSWin32' and $] < 5.008 ) {
print "1..0 # Skip perl-5.6.x on $^O does not support alarm()";
exit();
}
# enable full tracing/asserts
sub POE::Kernel::TRACE_DEFAULT () { 1 }
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
# make sure tracing don't show up in STDOUT
$SIG{'__WARN__'} = sub { return };
}
use POE;
use Test::More tests => 1;
POE::Session->create(
inline_states => {
_start => sub {
$poe_kernel->yield( "do_test" );
return;
},
do_test => sub {
$poe_kernel->delay( "done" => 1 );
return;
},
done => sub {
return;
},
},
);
$SIG{ALRM} = sub { die 'timeout' };
alarm(10); # set to 10 for slow VMs, lower at your own peril :)
eval { POE::Kernel->run };
$SIG{ALRM} = "IGNORE";
ok( ! $@, "POE exited in time" );
|
