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

Comparing AnyEvent/t/66_ioasync_05_dns.t (file contents):
Revision 1.7 by root, Mon Jul 4 21:14:29 2011 UTC vs.
Revision 1.8 by root, Fri Aug 12 18:41:29 2011 UTC

1# we avoid complicated tests here because some systems will 1# we avoid complicated tests here because some systems will
2# not have working DNS 2# not have working DNS
3 3
4use AnyEvent; 4use AnyEvent;
5
6 BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) }
5BEGIN { eval q{use AnyEvent::Impl::IOAsync;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::IOAsync not loadable 7 BEGIN { eval q{use AnyEvent::Impl::IOAsync;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::IOAsync not loadable\n}), exit 0) }
6}), exit 0) } 8
9
7use AnyEvent::DNS; 10use AnyEvent::DNS;
8 11
9$| = 1; print "1..5\n"; 12$| = 1; print "1..5\n";
10 13
11print "ok 1\n"; 14print "ok 1\n";

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines