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

Comparing AnyEvent/t/66_ioasync_02_signals.t (file contents):
Revision 1.2 by root, Thu Jul 9 22:49:18 2009 UTC vs.
Revision 1.6 by root, Sun Aug 9 13:27:23 2009 UTC

1$|=1;
2BEGIN { 1BEGIN {
3 print "1..5\n"; 2 unless (exists $SIG{USR1}) {
3 print <<EOF;
41..0 # SKIP Broken perl detected, skipping tests.
5EOF
6 exit 0;
7 }
4} 8}
5 9
6use AnyEvent; 10use AnyEvent;
7use AnyEvent::Impl::IOAsync; use IO::Async::Loop; AnyEvent::Impl::IOAsync::set_loop new IO::Async::Loop; 11BEGIN { eval q{use AnyEvent::Impl::IOAsync;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::IOAsync not loadable}), exit 0) } use IO::Async::Loop; AnyEvent::Impl::IOAsync::set_loop new IO::Async::Loop; $^W = 0;
12
13$| = 1; print "1..5\n";
8 14
9print "ok 1\n"; 15print "ok 1\n";
10 16
11my $cv = AnyEvent->condvar; 17my $cv = AnyEvent->condvar;
12 18

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines