ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/t/68_poe_02_signals.t
(Generate patch)

Comparing AnyEvent/t/68_poe_02_signals.t (file contents):
Revision 1.4 by root, Sat Jul 18 00:05:29 2009 UTC vs.
Revision 1.9 by root, Fri Aug 12 18:41:30 2011 UTC

1BEGIN {
2 unless (exists $SIG{USR1}) {
3 print <<EOF;
41..0 # SKIP Broken perl detected, skipping tests.
5EOF
6 exit 0;
7 }
8}
9
1use AnyEvent; 10use AnyEvent;
11
12 BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) }
2BEGIN { eval q{use AnyEvent::Impl::POE;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::POE not found}), exit 0) } $^W = 0; 13 BEGIN { eval q{use AnyEvent::Impl::POE;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::POE not loadable\n}), exit 0) }
14 $^W = 0;
15
3 16
4$| = 1; print "1..5\n"; 17$| = 1; print "1..5\n";
5 18
6print "ok 1\n"; 19print "ok 1\n";
7 20
… …
19 $cv->broadcast; 32 $cv->broadcast;
20}); 33});
21 34
22print "ok 2\n"; 35print "ok 2\n";
23kill 'INT', $$; 36kill 'INT', $$;
24$cv->wait; 37$cv->recv;
25undef $error; 38undef $error;
26 39
27print "ok 4\n"; 40print "ok 4\n";
28 41
29undef $sw; 42undef $sw;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines