t/00use.t ............. ok 1 - use IO::Async::Resolver::DNS; 1..1 ok t/01libresolv-impl.t .. skipped: Missing Net::LibResolv t/02netdns-impl.t ..... ok 1 - res_query ok 2 - res_query returns valid DNS packet ok 3 - $pkt qname ok 4 - $pkt qclass ok 5 - $pkt qtype ok 6 - res_search 1..6 ok t/10resolve.t ......... ok 1 - IO::Async::Resolver->can('res_query') ok 2 - '$result from ->res_query isa Net::DNS::Packet' isa 'Net::DNS::Packet' ok 3 - $result from ->res_query contains an answer ok 4 - $answer[0] is A record ok 5 - $answer[0] address is 10.0.0.1 ok 6 - IO::Async::Resolver->can('res_search') ok 7 - '$result from ->res_search isa Net::DNS::Packet' isa 'Net::DNS::Packet' ok 8 - $result from ->res_query contains an answer ok 9 - $answer[0] is A record ok 10 - $answer[0] address is 10.0.0.1 1..10 ok t/20extract-mx.t ...... ok 1 - '$pkt from ->res_query isa Net::DNS::Packet' isa 'Net::DNS::Packet' ok 2 - Sorted and processed MX records 1..2 ok t/21extract-srv.t ..... ok 1 - '$pkt from ->res_query isa Net::DNS::Packet' isa 'Net::DNS::Packet' ok 2 - ->res_query yielded 5 records ok 3 - First returned SRV record ok 4 - Middle three returned SRV records ok 5 - Last returned SRV record 1..5 ok t/90dns.t ............. ok 1 - IO::Async::Resolver->can('res_query') ok 2 - '$result from ->res_query isa Net::DNS::Packet' isa 'Net::DNS::Packet' ok 3 - $result from ->res_query contains some answers ok 4 - IO::Async::Resolver->can('res_search') ok 5 - '$result from ->res_search isa Net::DNS::Packet' isa 'Net::DNS::Packet' ok 6 - $result from ->res_search contains some answers 1..6 ok t/99pod.t ............. 1..4 ok 1 - POD test for blib/lib/IO/Async/Resolver/DNS.pm ok 2 - POD test for blib/lib/IO/Async/Resolver/DNS/NetDNSImpl.pm (no pod) ok 3 - POD test for blib/lib/IO/Async/Resolver/DNS/LibResolvImpl.pm (no pod) ok 4 - POD test for blib/lib/IO/Async/Resolver/DNS/Constants.pm (no pod) ok All tests successful. Files=8, Tests=34, 1 wallclock secs ( 0.01 usr 0.02 sys + 0.41 cusr 0.17 csys = 0.61 CPU) Result: PASS